(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    166175,       3896]
NotebookOptionsPosition[    160952,       3726]
NotebookOutlinePosition[    161624,       3749]
CellTagsIndexPosition[    161581,       3746]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Online Appendix 1 of Calzolari, Denicol\[OGrave] and Zanchettin \
\[OpenCurlyDoubleQuote]The demand-boost theory of exclusive dealing,\
\[CloseCurlyDoubleQuote] 2019\
\>", "Title",
 CellChangeTimes->{{3.660977104424218*^9, 3.6609771218504496`*^9}, {
   3.661672174425722*^9, 3.6616721804087033`*^9}, {3.7618327186023464`*^9, 
   3.7618327355291233`*^9}, {3.761836831324597*^9, 3.7618368356211195`*^9}, 
   3.7821523100121255`*^9}],

Cell["\<\
The Reduced Form model with Competitive Fringe of Section 3\
\>", "Subtitle",
 CellChangeTimes->{{3.6609771327187176`*^9, 3.660977147509225*^9}, {
   3.6609772050649867`*^9, 3.6609772199869604`*^9}, {3.661672212481048*^9, 
   3.661672215543085*^9}, {3.7618326324766536`*^9, 3.7618326364710283`*^9}, {
   3.7618327186023464`*^9, 3.7618327422800317`*^9}, 3.7618368392872777`*^9, 
   3.7821304165642805`*^9}],

Cell["November 2019", "Author",
 CellChangeTimes->{{3.660979477434865*^9, 3.6609794777730885`*^9}, {
  3.6609795229773865`*^9, 3.6609795270330915`*^9}, {3.7618327186023464`*^9, 
  3.761832746962512*^9}, {3.776340922822497*^9, 3.776340932277563*^9}, {
  3.7821304211051455`*^9, 3.782130422635054*^9}}],

Cell[CellGroupData[{

Cell["Defining payoffs and tariffs", "Section",
 CellChangeTimes->{{3.6609772427701063`*^9, 3.660977245635023*^9}, 
   3.7618327186023464`*^9, {3.761833047725255*^9, 3.7618330526720285`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Retailer", "'"}], "s", " ", "utility"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"u", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q1", " ", "+", " ", "q2"}], ")"}], " ", "-", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", "^", "2"}], " ", "+", " ", 
         RowBox[{"q2", "^", "2"}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"\[Gamma]", "  ", "q1", "  ", "q2"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ue1", "=", 
     RowBox[{"u", "/.", 
      RowBox[{"q2", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ue2", "=", 
     RowBox[{"u", "/.", 
      RowBox[{"q1", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Parameters", ":", " ", 
      RowBox[{"c", " ", 
       RowBox[{"in", " ", "[", 
        RowBox[{"0", ",", "1"}], "]"}]}]}], ",", " ", 
     RowBox[{"\[Gamma]", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "=", 
     RowBox[{
      RowBox[{"p1", " ", "q1"}], "+", "F1"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Two", " ", "part", " ", "tariff", " ", "of", " ", "dominant", " ", 
     "firm", " ", "1"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2", "=", 
     RowBox[{"c", " ", "q2"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Competitive", " ", "pricing", " ", "of", " ", "the", " ", "Fringe"}], 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.6430838325424433`*^9, 3.6430839031724434`*^9}, {
   3.6430888508859434`*^9, 3.643088853655944*^9}, {3.6430914144819436`*^9, 
   3.6430914941719437`*^9}, {3.643091560221944*^9, 3.6430915653619432`*^9}, {
   3.6430916331619434`*^9, 3.6430916468819437`*^9}, {3.643091685051944*^9, 
   3.6430917525619435`*^9}, {3.6430917968219433`*^9, 
   3.6430919083839436`*^9}, {3.64353514493536*^9, 3.6435351587056355`*^9}, 
   3.6609772896074085`*^9, {3.660977321278571*^9, 3.6609773565861654`*^9}, {
   3.6609774625639906`*^9, 3.6609774807231283`*^9}, {3.660977589162599*^9, 
   3.660977621661601*^9}, {3.660977861598258*^9, 3.6609779123098993`*^9}, {
   3.660978175796667*^9, 3.6609782413818645`*^9}, {3.6609831638312426`*^9, 
   3.6609831935685606`*^9}, {3.660993006842454*^9, 3.6609930396874056`*^9}, 
   3.7618327186023464`*^9, {3.761832804215413*^9, 3.7618328044108906`*^9}, {
   3.761833030508293*^9, 3.7618330353772745`*^9}, {3.761833984521212*^9, 
   3.7618339855295534`*^9}, {3.782130430985942*^9, 3.7821304322126617`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Semi", "-", 
    RowBox[{"indirect", " ", "utility", " ", "of", " ", "buyer"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"q2star", "=", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", " ", "-", " ", "P2"}], ",", "q2"}], "]"}], "\[Equal]", 
        "0"}], ",", "q2"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"v", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"u", " ", "-", " ", "P2"}], "/.", 
      RowBox[{"q2", "\[Rule]", "q2star"}]}], "]"}], " "}]}]}]], "Input",
 CellChangeTimes->{{3.6430922587559433`*^9, 3.6430922724559436`*^9}, 
   3.643535203696535*^9, {3.6435359591216435`*^9, 3.643535963681735*^9}, {
   3.655011809487033*^9, 3.6550118103451185`*^9}, {3.6609775127595367`*^9, 
   3.6609775234847107`*^9}, 3.660977636792717*^9, {3.660977844978651*^9, 
   3.660977859320175*^9}, {3.660993075292204*^9, 3.6609930774266253`*^9}, 
   3.761832718603344*^9, {3.7618331531553288`*^9, 3.7618331847518387`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", 
  RowBox[{"q1", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{3.7618332110614843`*^9, 3.7618340332967825`*^9, 
  3.7620674802746944`*^9, 3.762067700426995*^9, 3.763116963075077*^9, 
  3.7631170361296997`*^9, 3.763117071543969*^9, 3.7631209851407113`*^9, 
  3.776143027288923*^9, 3.7761430586601353`*^9, 3.7763409366260166`*^9, 
  3.780887565443844*^9, 3.781187732977271*^9, 3.78210932604719*^9, 
  3.7821957390357447`*^9, 3.782832820743964*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["c", "2"], "+", 
    RowBox[{"2", " ", "c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"q1", " ", "\[Gamma]"}]}], ")"}]}], "+", 
    RowBox[{"q1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "q1", "+", 
       RowBox[{"q1", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7618332110614843`*^9, 3.7618340332967825`*^9, 
  3.7620674802746944`*^9, 3.762067700426995*^9, 3.763116963075077*^9, 
  3.7631170361296997`*^9, 3.763117071543969*^9, 3.7631209851407113`*^9, 
  3.776143027288923*^9, 3.7761430586601353`*^9, 3.7763409366260166`*^9, 
  3.780887565443844*^9, 3.781187732977271*^9, 3.78210932604719*^9, 
  3.7821957390357447`*^9, 3.7828328211291885`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Quantities", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"q1NE", "=", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"v", " ", "-", " ", "P1"}], ",", "q1"}], "]"}], "\[Equal]", 
        "0"}], ",", "q1"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"q2NE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"q2star", "/.", 
      RowBox[{"q1", "\[Rule]", "q1NE"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"q1E", "=", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"ue1", " ", "-", " ", "P1"}], ",", "q1"}], "]"}], 
        "\[Equal]", "0"}], ",", "q1"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6430922816059437`*^9, 3.6430922950359435`*^9}, {
   3.6435359889422398`*^9, 3.6435360042525463`*^9}, {3.6609776446909933`*^9, 
   3.660977750381975*^9}, 3.761832718603344*^9, {3.7618339973050275`*^9, 
   3.7618340015646353`*^9}, 3.761834517442299*^9, 3.7620676835471816`*^9, {
   3.782130447589622*^9, 3.782130451458218*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
   RowBox[{"c", " ", "\[Gamma]"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.763120985234486*^9, 3.7761430274734287`*^9, 
   3.7761430587808123`*^9, 3.776340936821455*^9, 3.7808875658653607`*^9, 
   3.7811877331667533`*^9, 3.782109326355727*^9, 3.782195739255094*^9, 
   3.7828328211523542`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]", "-", 
   RowBox[{"p1", " ", "\[Gamma]"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.763120985234486*^9, 3.7761430274734287`*^9, 
   3.7761430587808123`*^9, 3.776340936821455*^9, 3.7808875658653607`*^9, 
   3.7811877331667533`*^9, 3.782109326355727*^9, 3.782195739255094*^9, 
   3.7828328211769533`*^9}],

Cell[BoxData[
 RowBox[{"1", "-", "p1"}]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.763120985234486*^9, 3.7761430274734287`*^9, 
   3.7761430587808123`*^9, 3.776340936821455*^9, 3.7808875658653607`*^9, 
   3.7811877331667533`*^9, 3.782109326355727*^9, 3.782195739255094*^9, 
   3.7828328211779523`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Non", " ", "exclusive", " ", "payoffs"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"u", " ", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"c", " ", "q2"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q1", "\[Rule]", "q1NE"}], ",", 
       RowBox[{"q2", "\[Rule]", "q2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ProfitBNE", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", "%", "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], "F1"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE1", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"ue1", " ", "-", " ", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", "q1E"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], "F1"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q1", "\[Rule]", "q1NE"}], ",", 
       RowBox[{"q2", "\[Rule]", "q2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Profit1NE", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Profit1E", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"P1", "/.", 
      RowBox[{"q1", "\[Rule]", "q1E"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7618333702268972`*^9, 3.7618334569808826`*^9}, 
   3.761834144141417*^9, 3.7618344571586585`*^9, 3.761834867366617*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "c"}], "+", 
     SuperscriptBox["c", "2"], "-", 
     RowBox[{"2", " ", "p1"}], "+", 
     SuperscriptBox["p1", "2"], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}]}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
  RowBox[{"F1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853212304`*^9, 3.7761430276210337`*^9, 
   3.776143058923431*^9, 3.776340936930807*^9, 3.7808875660497837`*^9, 
   3.7811877332725115`*^9, 3.782109326507825*^9, 3.7821957393378983`*^9, 
   3.782832821321435*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"]}], "-", 
  RowBox[{"F1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853212304`*^9, 3.7761430276210337`*^9, 
   3.776143058923431*^9, 3.776340936930807*^9, 3.7808875660497837`*^9, 
   3.7811877332725115`*^9, 3.782109326507825*^9, 3.7821957393378983`*^9, 
   3.7828328213234644`*^9}],

Cell[BoxData[
 RowBox[{"F1", "+", 
  FractionBox[
   RowBox[{"p1", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853212304`*^9, 3.7761430276210337`*^9, 
   3.776143058923431*^9, 3.776340936930807*^9, 3.7808875660497837`*^9, 
   3.7811877332725115`*^9, 3.782109326507825*^9, 3.7821957393378983`*^9, 
   3.7828328213580785`*^9}],

Cell[BoxData[
 RowBox[{"F1", "+", "p1", "-", 
  SuperscriptBox["p1", "2"]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853212304`*^9, 3.7761430276210337`*^9, 
   3.776143058923431*^9, 3.776340936930807*^9, 3.7808875660497837`*^9, 
   3.7811877332725115`*^9, 3.782109326507825*^9, 3.7821957393378983`*^9, 
   3.782832821367612*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v0", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"v", "/.", 
    RowBox[{"q1", "\[Rule]", "0"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Reservation", " ", "payoff", " ", "for", " ", "buyer"}], ",", 
    " ", 
    RowBox[{
    "exclusively", " ", "dealing", " ", "with", " ", "the", " ", "fringe"}]}],
    "*)"}]}]], "Input",
 CellChangeTimes->{{3.6430930283599434`*^9, 3.6430930501599436`*^9}, {
   3.660978010545952*^9, 3.660978053580998*^9}, {3.6609781166576366`*^9, 
   3.6609781619304028`*^9}, {3.6609793118996615`*^9, 3.660979328336651*^9}, {
   3.6609798441427603`*^9, 3.6609798465633755`*^9}, {3.660981772224298*^9, 
   3.6609817815085025`*^9}, 3.761832718607333*^9, 3.761833512899354*^9, {
   3.761833588362562*^9, 3.761833594402422*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7618335245013285`*^9, 3.761834089865549*^9, 
  3.7620674806496906`*^9, 3.762067700628481*^9, 3.7631169634002075`*^9, 
  3.7631170363231697`*^9, 3.7631170718621187`*^9, 3.7631209853651505`*^9, 
  3.776143027691844*^9, 3.776143058982273*^9, 3.776340936993292*^9, 
  3.780887566126243*^9, 3.781187733337327*^9, 3.782109326554984*^9, 
  3.782195739378798*^9, 3.782832821382971*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Analysis: Exclusive contracts prohibited", "Section",
 CellChangeTimes->{{3.6609916121591845`*^9, 3.6609916182042265`*^9}, 
   3.6670309380680985`*^9, {3.7155751406110334`*^9, 3.7155751476934333`*^9}, {
   3.7155803227312336`*^9, 3.7155803251862335`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Firm", " ", "1", " ", "sets", " ", "the", " ", "fixed", " ", "fee", " ", 
    "so", " ", "as", " ", "to", " ", "extract", " ", "the", " ", "bilateral", 
    " ", "surplus"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tmpF", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v0", "\[Equal]", "ProfitBNE"}], "}"}], ",", 
       RowBox[{"{", "F1", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F1dtmp", "=", 
     RowBox[{"tmpF", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.662034945308031*^9, 3.6620350110658264`*^9}, {
   3.6620354022755737`*^9, 3.662035513523673*^9}, {3.6658052167752223`*^9, 
   3.665805222902317*^9}, 3.6670309380690985`*^9, {3.694501496549402*^9, 
   3.6945015038346024`*^9}, {3.6945016979298024`*^9, 
   3.6945017018454027`*^9}, {3.7155753697820334`*^9, 
   3.7155753877988334`*^9}, {3.761833753160881*^9, 3.7618337714390044`*^9}, {
   3.782130491229905*^9, 3.782130503880131*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"F1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
         RowBox[{"c", " ", "\[Gamma]"}]}], ")"}], "2"], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7155753904196334`*^9, {3.7618337644297857`*^9, 3.761833771895783*^9}, 
   3.7618340946228285`*^9, 3.761834152600795*^9, 3.7620674806756573`*^9, 
   3.762067700655384*^9, 3.7631169634490776`*^9, 3.7631170363441267`*^9, 
   3.763117071910987*^9, 3.7631209853910418`*^9, {3.7761430310130663`*^9, 
   3.776143059023164*^9}, 3.776340941927703*^9, 3.7808875661973095`*^9, 
   3.7811877333732166`*^9, 3.782109326597681*^9, 3.7821957394027348`*^9, 
   3.782832821422907*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Substituting", " ", "the", " ", "fixed", " ", "fees", " ", "in", " ", 
     "the", " ", "profits"}], ",", " ", 
    RowBox[{
    "we", " ", "determine", " ", "the", " ", "equilibrium", " ", "marginal", 
     " ", "price", " ", "of", " ", "firm", " ", "1"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Profit1NEtmp", "=", 
     RowBox[{"Profit1NE", "/.", 
      RowBox[{"F1", "\[Rule]", "F1dtmp"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"Profit1NEtmp", ",", "p1"}], "]"}], "\[Equal]", "0"}], 
        "}"}], ",", 
       RowBox[{"{", "p1", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1NE", "=", 
     RowBox[{"tmpp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2NE", "=", "c"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pricesNE", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "\[Rule]", "p1NE"}], ",", 
       RowBox[{"p2", "\[Rule]", "p2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "and", " ", "then", " ", "the", " ", "associated", " ", "equilibrium", 
     " ", "payoffs"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PROFIT1NE", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Profit1NEtmp", "/.", "pricesNE"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"PROFITBNE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBNE", "/.", "pricesNE"}], "/.", 
      RowBox[{"F1", "\[Rule]", "F1dtmp"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"WelfNE", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", " ", "-", 
        RowBox[{"p1", " ", "q1"}], "-", 
        RowBox[{"c", " ", "q2"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"q1", "\[Rule]", "q1NE"}], ",", 
         RowBox[{"q2", "\[Rule]", "q2NE"}]}], "}"}]}], "/.", "pricesNE"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6618428693385496`*^9, 3.661842873194935*^9}, {
   3.6618429315727725`*^9, 3.661843041068721*^9}, {3.661844127033015*^9, 
   3.661844162828015*^9}, {3.6620355512497773`*^9, 3.6620356159582567`*^9}, {
   3.6620356647067003`*^9, 3.662035712478486*^9}, {3.662035762677888*^9, 
   3.6620357676461945`*^9}, {3.665805233236223*^9, 3.665805246376008*^9}, {
   3.665806006001563*^9, 3.6658060213708353`*^9}, {3.6658948093681726`*^9, 
   3.665894820050297*^9}, {3.6658949067411375`*^9, 3.6658949104666224`*^9}, {
   3.6658949869829335`*^9, 3.665895022029005*^9}, {3.6658950645493727`*^9, 
   3.665895064681472*^9}, {3.6658951015707397`*^9, 3.6658951190784206`*^9}, 
   3.6670309380720987`*^9, {3.6945015163090024`*^9, 3.6945015700702024`*^9}, {
   3.694501669470002*^9, 3.6945016700316024`*^9}, {3.6945017048582025`*^9, 
   3.6945017099674025`*^9}, {3.7155754043700333`*^9, 
   3.7155754586366334`*^9}, {3.761833782432607*^9, 3.761833827692593*^9}, {
   3.7618342032971926`*^9, 3.7618342472467337`*^9}, {3.7761432857633085`*^9, 
   3.7761432913278403`*^9}, {3.7761433233534064`*^9, 
   3.7761433590924425`*^9}, {3.7761434082226067`*^9, 3.7761434652866096`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
      " ", "\[Mu]"}], 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, {3.761833814211628*^9, 3.761833837987079*^9}, 
   3.761834099712212*^9, 3.761834156748687*^9, {3.7618342309971485`*^9, 
   3.761834247682505*^9}, 3.7620674806985607`*^9, 3.7620677006823597`*^9, 
   3.763116963489994*^9, 3.7631170363621054`*^9, 3.7631170719559016`*^9, 
   3.7631209854119873`*^9, {3.7761430311287208`*^9, 3.7761430590600653`*^9}, {
   3.776143329664542*^9, 3.7761433595571995`*^9}, {3.7761434163330436`*^9, 
   3.7761434657374043`*^9}, 3.7763409420279756`*^9, 3.780887566300084*^9, 
   3.7811877334051156`*^9, 3.782109326696205*^9, 3.782195739419682*^9, 
   3.7828328214830503`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "+", 
   RowBox[{"2", " ", "c"}], "-", 
   SuperscriptBox["c", "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}]}], ")"}], "2"], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
      "2"], " ", 
     SuperscriptBox["\[Mu]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
     " ", "\[Mu]"}], 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Mu]"}]}]], "+", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], 
         ")"}], " ", "\[Mu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]]}], ")"}]}]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, {3.761833814211628*^9, 3.761833837987079*^9}, 
   3.761834099712212*^9, 3.761834156748687*^9, {3.7618342309971485`*^9, 
   3.761834247682505*^9}, 3.7620674806985607`*^9, 3.7620677006823597`*^9, 
   3.763116963489994*^9, 3.7631170363621054`*^9, 3.7631170719559016`*^9, 
   3.7631209854119873`*^9, {3.7761430311287208`*^9, 3.7761430590600653`*^9}, {
   3.776143329664542*^9, 3.7761433595571995`*^9}, {3.7761434163330436`*^9, 
   3.7761434657374043`*^9}, 3.7763409420279756`*^9, 3.780887566300084*^9, 
   3.7811877334051156`*^9, 3.782109326696205*^9, 3.782195739419682*^9, 
   3.782832822468799*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{"4", "+", 
          RowBox[{"2", " ", "\[Gamma]"}], "+", 
          RowBox[{"4", " ", "\[Mu]"}], "+", 
          RowBox[{"3", " ", "\[Gamma]", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}], 
    "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{"6", "+", 
          RowBox[{"5", " ", "\[Mu]"}], "+", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"3", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
    "+", 
    RowBox[{
     SuperscriptBox["c", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Mu]"}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"3", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, {3.761833814211628*^9, 3.761833837987079*^9}, 
   3.761834099712212*^9, 3.761834156748687*^9, {3.7618342309971485`*^9, 
   3.761834247682505*^9}, 3.7620674806985607`*^9, 3.7620677006823597`*^9, 
   3.763116963489994*^9, 3.7631170363621054`*^9, 3.7631170719559016`*^9, 
   3.7631209854119873`*^9, {3.7761430311287208`*^9, 3.7761430590600653`*^9}, {
   3.776143329664542*^9, 3.7761433595571995`*^9}, {3.7761434163330436`*^9, 
   3.7761434657374043`*^9}, 3.7763409420279756`*^9, 3.780887566300084*^9, 
   3.7811877334051156`*^9, 3.782109326696205*^9, 3.782195739419682*^9, 
   3.7828328227519603`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "0", " ", "marginal", " ", "prices", " ", "are", " ", "efficient"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{"p1NE", ",", 
    RowBox[{"\[Mu]", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665809103625598*^9, 3.6658091043330703`*^9}, 
   3.665809176334755*^9, {3.6658095976927814`*^9, 3.6658096325893197`*^9}, 
   3.667030938075099*^9, {3.6945016207594023`*^9, 3.694501626688402*^9}, {
   3.7155753079850335`*^9, 3.7155753079850335`*^9}, {3.7155755016598334`*^9, 
   3.715575522523033*^9}, 3.761834188632406*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355628893204`*^9, 3.6945016288160024`*^9, 3.694501746061202*^9, 
   3.694511680948374*^9, 3.694752100825987*^9, 3.6947759115622015`*^9, 
   3.695010375326626*^9, 3.6953572640137615`*^9, 3.6959603582110243`*^9, 
   3.6959772571871243`*^9, 3.697168790488615*^9, 3.697175824803461*^9, 
   3.6972579707617507`*^9, 3.708680116387779*^9, 3.7154372905497456`*^9, 
   3.7154379640202084`*^9, 3.7154381418908377`*^9, 3.7155755231696334`*^9, {
   3.7618341852145467`*^9, 3.761834188974492*^9}, 3.7620674821826344`*^9, 
   3.7620677020746255`*^9, 3.7631169650857005`*^9, 3.7631170378151793`*^9, 
   3.7631170734259367`*^9, 3.7631209868481455`*^9, {3.7761430325616817`*^9, 
   3.776143060583579*^9}, 3.776340942876684*^9, 3.7808875676932926`*^9, 
   3.7811877343446026`*^9, 3.7821093278871765`*^9, 3.782195740291361*^9, 
   3.782832822962975*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Here", " ", "we", " ", "redefine", " ", "the", " ", "fixed", " ", "fees", 
    " ", "to", " ", "account", " ", "for", " ", "the", " ", "equilibrium", 
    " ", "prices"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"F1NE", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"F1dtmp", "/.", "pricesNE"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6620359713330956`*^9, 3.6620360310667315`*^9}, 
   3.6670309380760994`*^9, {3.6945016379168024`*^9, 3.694501660199602*^9}, {
   3.6945017500724025`*^9, 3.6945017543020024`*^9}, {3.7155755305796337`*^9, 
   3.7155755504580336`*^9}, 3.7618342524796762`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
     "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7155755434516335`*^9, 3.7155755506296334`*^9}, 
   3.7618342548533416`*^9, 3.7620674822135105`*^9, 3.76206770210153*^9, 
   3.763116965137563*^9, 3.763117037842108*^9, 3.763117073473808*^9, 
   3.7631209868730783`*^9, {3.7761430326145725`*^9, 3.776143060623472*^9}, 
   3.7763409429301295`*^9, 3.7808875677625084`*^9, 3.7811877343785114`*^9, 
   3.7821093279643793`*^9, 3.782195740311305*^9, 3.782832823044702*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "Infinity", " ", "fixed", " ", "fee", " ", "vanishes", " ", "and", " ", 
     "we", " ", "are", " ", "left", " ", "with", " ", "linear", " ", 
     "pricing"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{"F1NE", ",", 
    RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6658060900517416`*^9, 3.6658061190321875`*^9}, {
   3.666077753496785*^9, 3.666077756479083*^9}, {3.666077801675603*^9, 
   3.6660778046669016`*^9}, 3.6670309380780993`*^9, {3.6945017787114024`*^9, 
   3.6945017910962024`*^9}, {3.7155753080006332`*^9, 
   3.7155753080006332`*^9}, {3.7155755608244333`*^9, 
   3.7155755982880335`*^9}, {3.7618342693346043`*^9, 3.761834274647438*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355797910104`*^9, {3.6945017661846027`*^9, 3.694501792063402*^9}, 
   3.694511681120257*^9, 3.694752101059987*^9, 3.6947759117743444`*^9, 
   3.6950103755606256`*^9, 3.6953572642477674`*^9, 3.6959603584450245`*^9, 
   3.6959772574641247`*^9, 3.697168790769413*^9, 3.69717582503746*^9, 
   3.69725797100795*^9, 3.708680117622286*^9, 3.715437291116936*^9, 
   3.7154379643796587`*^9, 3.7154381422627583`*^9, {3.7155755574080334`*^9, 
   3.7155755668012333`*^9}, 3.761834279622096*^9, 3.762067482249414*^9, 
   3.762067702114482*^9, 3.763116965170472*^9, 3.7631170378530793`*^9, 
   3.7631170734967475`*^9, 3.763120986890067*^9, {3.776143032659419*^9, 
   3.7761430608738036`*^9}, 3.776340942976999*^9, 3.7808875678143573`*^9, 
   3.7811877344114594`*^9, 3.7821093280096903`*^9, 3.782195740332215*^9, 
   3.7828328230975714`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "show", " ", "that", " ", "these", " ", "fixed", " ", "fees", 
    " ", "are", " ", "always", " ", "positive", " ", "and", " ", "we", " ", 
    "do", " ", "not", " ", "need", " ", "to", " ", "take", " ", "care", " ", 
    "of", " ", "corner", " ", 
    RowBox[{"solutions", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Reduce", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F1NE", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"1", "\[GreaterEqual]", "\[Mu]", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"1", "\[GreaterEqual]", "\[Gamma]", "\[GreaterEqual]", "0"}], 
     ",", 
     RowBox[{"1", "\[GreaterEqual]", "c", "\[GreaterEqual]", "0"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6620360371990385`*^9, 3.6620360706870823`*^9}, {
   3.662036107302877*^9, 3.6620361390255527`*^9}, {3.6620361726616163`*^9, 
   3.66203622565407*^9}, {3.6658053366057515`*^9, 3.6658053799586153`*^9}, {
   3.66580612692233*^9, 3.665806129036746*^9}, {3.6658062601134453`*^9, 
   3.6658063309982214`*^9}, {3.6658096680089483`*^9, 3.665809683529315*^9}, 
   3.6670309380801*^9, {3.7155752215582333`*^9, 3.7155752215582333`*^9}, {
   3.7155753080006332`*^9, 3.7155753080006332`*^9}, {3.7155756088512335`*^9, 
   3.7155756134084334`*^9}, 3.761834283820942*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"0", "\[LessEqual]", "\[Mu]", "\[LessEqual]", "1"}], "&&", 
  RowBox[{"0", "\[LessEqual]", "\[Gamma]", "<", "1"}], "&&", 
  RowBox[{"0", "\[LessEqual]", "c", "\[LessEqual]", "1"}]}]], "Output",
 CellChangeTimes->{
  3.715575614157233*^9, 3.7618342846067944`*^9, 3.762067482290338*^9, 
   3.762067702133488*^9, 3.763116965217349*^9, 3.76311703787103*^9, 
   3.763117073533647*^9, 3.763120986915963*^9, {3.776143032716301*^9, 
   3.7761430609126997`*^9}, 3.7763409430929327`*^9, 3.7808875679073696`*^9, 
   3.7811877344663153`*^9, 3.7821093280431366`*^9, 3.782195740363169*^9, 
   3.7828328231623926`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "determine", " ", "the", " ", "Limit", " ", 
    "Pricing", " ", "strategy", " ", "and", " ", "its", " ", "region"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"q2NE", "/.", "pricesNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpqlim", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"clim", "=", 
     RowBox[{"tmpqlim", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "for", " ", "c", " ", "above", " ", "clim", " ", "the", " ", 
     "inefficient", " ", "firm", " ", "2", " ", "cannot", " ", "be", " ", 
     "active"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.6618430600846224`*^9, 3.661843097508364*^9}, 
   3.6618440873070145`*^9, {3.662035811146142*^9, 3.6620358123029146`*^9}, 
   3.6659213451693716`*^9, 3.6670309380841002`*^9, {3.694501809459402*^9, 
   3.694501867755802*^9}, {3.7155756309936333`*^9, 3.7155756787530336`*^9}, {
   3.7821305370315175`*^9, 3.7821305374483624`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}]]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.715575680032233*^9, 3.761834301931489*^9, 3.7620674823192596`*^9, 
   3.7620677021653447`*^9, 3.7631169652682114`*^9, 3.7631170378960266`*^9, 
   3.763117073567591*^9, 3.763120986943888*^9, {3.776143032772152*^9, 
   3.7761430609555845`*^9}, 3.776340943161581*^9, 3.780887567971816*^9, 
   3.7811877345061703`*^9, 3.7821093281104198`*^9, 3.782195740387105*^9, 
   3.782832823201971*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "determine", " ", "the", " ", "limit", " ", "pricing", " ", 
    RowBox[{"strategy", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"p1Limit", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"0", "==", "q2NE"}], "/.", 
        RowBox[{"p2", "\[Rule]", "c"}]}], ",", "p1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6610068539611044`*^9, 3.6610069698669972`*^9}, {
   3.6611658241742687`*^9, 3.661165851250283*^9}, 3.661843268010542*^9, {
   3.661844177653015*^9, 3.661844229980015*^9}, {3.6618444008190145`*^9, 
   3.6618444279060144`*^9}, {3.6658064381435843`*^9, 3.665806447916108*^9}, {
   3.6658066105370684`*^9, 3.6658066112365403`*^9}, {3.6658079040580206`*^9, 
   3.6658079238160925`*^9}, 3.665921350711926*^9, 3.6670309380861006`*^9, {
   3.6945018774824023`*^9, 3.6945019282330027`*^9}, {3.7155757031040335`*^9, 
   3.7155757223768334`*^9}, {3.7821305572412186`*^9, 3.782130565256793*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]"}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.7155757164108334`*^9, 3.715575723047633*^9}, 
   3.7618343093366375`*^9, 3.7620674823341866`*^9, 3.762067702182336*^9, 
   3.763116965300147*^9, 3.7631170379129524`*^9, 3.7631170735855427`*^9, 
   3.763120986956854*^9, {3.7761430328130074`*^9, 3.776143060985504*^9}, 
   3.7763409431928253`*^9, 3.780887568010543*^9, 3.781187734531105*^9, 
   3.78210932814052*^9, 3.7821305658781896`*^9, 3.7821957403970413`*^9, 
   3.7828328232310605`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "associated", " ", "fixed", " ", "fee", " ", "is", " ", 
    "determined", " ", "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBE1", "/.", 
       RowBox[{"q1", "->", "q1e"}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1Limit", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"v0", "==", "%"}], ",", "F1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6658079855259743`*^9, 3.6658080290798345`*^9}, {
   3.6658097664627433`*^9, 3.6658097684901004`*^9}, 3.6659213583446894`*^9, 
   3.6670309380881004`*^9, {3.694501936267002*^9, 3.6945019661852026`*^9}, {
   3.7155758524562335`*^9, 3.7155758600452337`*^9}, {3.7618343808422832`*^9, 
   3.761834384392785*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.715575860671233*^9, 3.761834470156894*^9, 3.7620674824190025`*^9, 
   3.762067702229209*^9, 3.763116965362959*^9, 3.7631170379558415`*^9, 
   3.7631170736423573`*^9, 3.7631209870017333`*^9, {3.7761430328858128`*^9, 
   3.776143061046342*^9}, 3.776340943261854*^9, 3.7808875681170964`*^9, 
   3.7811877345949683`*^9, 3.7821093282402253`*^9, 3.782195740439927*^9, 
   3.7828328233018284`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "associated", " ", "payoffs", " ", "are", " ", "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PROFITBLimit", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ProfitBE1", "/.", 
        RowBox[{"q1", "->", "q1e"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "/.", 
      RowBox[{"F1", "->", "F1Limit"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Limit", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Profit1E", "/.", 
        RowBox[{"q1", "->", "q1e"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "/.", 
      RowBox[{"F1", "->", "F1Limit"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"WelfLimit", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ProfitBE1", "/.", 
        RowBox[{"q1", "->", "q1e"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "0"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.665806627274261*^9, 3.665806635071466*^9}, {
   3.6658080386855893`*^9, 3.6658080726653004`*^9}, 3.667030938089101*^9, {
   3.6945019834508023`*^9, 3.6945019969448023`*^9}, {3.7761432091961355`*^9, 
   3.7761432178002625`*^9}, {3.780888547819667*^9, 3.7808885499675636`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.6675356176477957`*^9, 3.6945020002540026`*^9, 3.694511681354645*^9, 
   3.6947521012315865`*^9, 3.6947759120535307`*^9, 3.6950103756864257`*^9, 
   3.695357264388171*^9, 3.6959603585854244`*^9, 3.6959772576141243`*^9, 
   3.6971687909410124`*^9, 3.697175825164459*^9, 3.697257971210349*^9, 
   3.7086801181067114`*^9, 3.7154372914468145`*^9, 3.7154379646140223`*^9, 
   3.715438142488967*^9, 3.7155758821952333`*^9, 3.7618345368254776`*^9, 
   3.7620674824309344`*^9, 3.7620677022441373`*^9, 3.763116965389886*^9, 
   3.7631170379697676`*^9, 3.763117073663326*^9, 3.763120987015696*^9, {
   3.7761430329247084`*^9, 3.7761430610742683`*^9}, 3.776143218429912*^9, 
   3.7763409432930627`*^9, 3.7808875681702194`*^9, 3.7808885623516912`*^9, 
   3.781187734622857*^9, 3.7821093282802687`*^9, 3.782195740448903*^9, 
   3.782832823324788*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
         RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Gamma]", "2"], "+", 
         RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.6675356176477957`*^9, 3.6945020002540026`*^9, 3.694511681354645*^9, 
   3.6947521012315865`*^9, 3.6947759120535307`*^9, 3.6950103756864257`*^9, 
   3.695357264388171*^9, 3.6959603585854244`*^9, 3.6959772576141243`*^9, 
   3.6971687909410124`*^9, 3.697175825164459*^9, 3.697257971210349*^9, 
   3.7086801181067114`*^9, 3.7154372914468145`*^9, 3.7154379646140223`*^9, 
   3.715438142488967*^9, 3.7155758821952333`*^9, 3.7618345368254776`*^9, 
   3.7620674824309344`*^9, 3.7620677022441373`*^9, 3.763116965389886*^9, 
   3.7631170379697676`*^9, 3.763117073663326*^9, 3.763120987015696*^9, {
   3.7761430329247084`*^9, 3.7761430610742683`*^9}, 3.776143218429912*^9, 
   3.7763409432930627`*^9, 3.7808875681702194`*^9, 3.7808885623516912`*^9, 
   3.781187734622857*^9, 3.7821093282802687`*^9, 3.782195740448903*^9, 
   3.7828328233654776`*^9}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6675356176477957`*^9, 3.6945020002540026`*^9, 3.694511681354645*^9, 
   3.6947521012315865`*^9, 3.6947759120535307`*^9, 3.6950103756864257`*^9, 
   3.695357264388171*^9, 3.6959603585854244`*^9, 3.6959772576141243`*^9, 
   3.6971687909410124`*^9, 3.697175825164459*^9, 3.697257971210349*^9, 
   3.7086801181067114`*^9, 3.7154372914468145`*^9, 3.7154379646140223`*^9, 
   3.715438142488967*^9, 3.7155758821952333`*^9, 3.7618345368254776`*^9, 
   3.7620674824309344`*^9, 3.7620677022441373`*^9, 3.763116965389886*^9, 
   3.7631170379697676`*^9, 3.763117073663326*^9, 3.763120987015696*^9, {
   3.7761430329247084`*^9, 3.7761430610742683`*^9}, 3.776143218429912*^9, 
   3.7763409432930627`*^9, 3.7808875681702194`*^9, 3.7808885623516912`*^9, 
   3.781187734622857*^9, 3.7821093282802687`*^9, 3.782195740448903*^9, 
   3.782832823366477*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "now", " ", "find", " ", "the", " ", "\"\<Drastic region\>\"", 
    " ", "in", " ", "which", " ", "also", " ", "without", " ", "exclusivity", 
    " ", "clause", " ", "the", " ", "dominant", " ", "can", " ", "price", " ",
     "at", " ", "the", " ", "monopoly", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "First", " ", "we", " ", "need", " ", "to", " ", "find", " ", "the", " ", 
    "unconstrained", " ", 
    RowBox[{"monopolist", "'"}], "s", " ", "optimal", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ProfitBE1", "-", "v0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpF1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "F1"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Profit1E", "/.", 
     RowBox[{"F1", "\[Rule]", 
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1m", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1m"}]}], "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6658100099457855`*^9, 3.665810026786628*^9}, {
   3.665810112591979*^9, 3.6658102199016743`*^9}, {3.665810470437052*^9, 
   3.6658105687894735`*^9}, {3.6658923219532013`*^9, 
   3.6658923418014717`*^9}, {3.665892896095666*^9, 3.6658929403109455`*^9}, {
   3.6658930734613533`*^9, 3.6658930814526834`*^9}, {3.6658935726598816`*^9, 
   3.665893584345684*^9}, 3.66589362310153*^9, 3.667030938090101*^9, {
   3.6945020089824023`*^9, 3.6945020188416023`*^9}, {3.694502068653202*^9, 
   3.6945020694020023`*^9}, 3.7155758976302333`*^9, {3.7155759656022334`*^9, 
   3.7155760500092335`*^9}, {3.761834633113744*^9, 3.761834649556821*^9}, {
   3.761834754013789*^9, 3.761834764883754*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"F1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "-", "p1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c", "+", "p1"}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.7631209870705633`*^9, {3.7761430330025005`*^9, 3.776143061141089*^9}, 
   3.776340943431182*^9, 3.780887568254609*^9, 3.781187734689678*^9, 
   3.7821093283667974`*^9, 3.7821957405007935`*^9, 3.7828328233930416`*^9}],

Cell[BoxData[
 FractionBox["\[Mu]", 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.7631209870705633`*^9, {3.7761430330025005`*^9, 3.776143061141089*^9}, 
   3.776340943431182*^9, 3.780887568254609*^9, 3.781187734689678*^9, 
   3.7821093283667974`*^9, 3.7821957405007935`*^9, 3.7828328233930416`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "-", 
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "c", "+", 
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]]}], ")"}]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.7631209870705633`*^9, {3.7761430330025005`*^9, 3.776143061141089*^9}, 
   3.776340943431182*^9, 3.780887568254609*^9, 3.781187734689678*^9, 
   3.7821093283667974`*^9, 3.7821957405007935`*^9, 3.7828328234274616`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "And", " ", "the", " ", "associated", " ", "payoffs", " ", "are", " ", 
    "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PROFIT1Em", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Profit1E", "/.", 
       RowBox[{"p1", "\[Rule]", "p1m"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "F1m"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"PROFITBE1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBE1", "/.", 
       RowBox[{"p1", "\[Rule]", "p1m"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "F1m"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Welf1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBE1", "/.", 
       RowBox[{"p1", "\[Rule]", "p1m"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "0"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6945020727248025`*^9, 3.6945020881880026`*^9}, {
  3.7761431505814886`*^9, 3.776143193270426*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Mu]", "2"], "-", 
   RowBox[{
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
   RowBox[{"c", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"4", " ", "\[Mu]"}]}], ")"}]}]}], 
  RowBox[{"2", "+", 
   RowBox[{"6", " ", "\[Mu]"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["\[Mu]", "2"]}]}]]], "Output",
 CellChangeTimes->{
  3.7155760751322336`*^9, 3.761834939136526*^9, 3.762067482698254*^9, 
   3.7620677023857574`*^9, 3.7631169655354967`*^9, 3.76311703807452*^9, 
   3.763117073791983*^9, 3.7631209871244073`*^9, {3.776143033300738*^9, 
   3.77614306122686*^9}, 3.7761431955505743`*^9, 3.77634094353142*^9, 
   3.780887568328417*^9, 3.7811877347574973`*^9, 3.782109328437607*^9, 
   3.7821957405506716`*^9, 3.782832823460599*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.7155760751322336`*^9, 3.761834939136526*^9, 3.762067482698254*^9, 
   3.7620677023857574`*^9, 3.7631169655354967`*^9, 3.76311703807452*^9, 
   3.763117073791983*^9, 3.7631209871244073`*^9, {3.776143033300738*^9, 
   3.77614306122686*^9}, 3.7761431955505743`*^9, 3.77634094353142*^9, 
   3.780887568328417*^9, 3.7811877347574973`*^9, 3.782109328437607*^9, 
   3.7821957405506716`*^9, 3.7828328234630303`*^9}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}], "2"], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.7155760751322336`*^9, 3.761834939136526*^9, 3.762067482698254*^9, 
   3.7620677023857574`*^9, 3.7631169655354967`*^9, 3.76311703807452*^9, 
   3.763117073791983*^9, 3.7631209871244073`*^9, {3.776143033300738*^9, 
   3.77614306122686*^9}, 3.7761431955505743`*^9, 3.77634094353142*^9, 
   3.780887568328417*^9, 3.7811877347574973`*^9, 3.782109328437607*^9, 
   3.7821957405506716`*^9, 3.7828328234630303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Now", ",", " ", 
    RowBox[{
     RowBox[{
     "we", " ", "determine", " ", "the", " ", "minimum", " ", "c", " ", 
      "that", " ", "allows", " ", "the", " ", "dominant", " ", "firm", " ", 
      "to", " ", "give"}], "-", 
     RowBox[{
     "up", " ", "with", " ", "limit", " ", "pricing", " ", "and", " ", 
      "directly", " ", "price", " ", "as", " ", "a", " ", 
      RowBox[{"monopolist", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"p1m", "\[Equal]", "p1Limit"}], ",", "c"}], "]"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"cdrast", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6658102964278708`*^9, 3.6658103118005257`*^9}, {
   3.665810582117383*^9, 3.6658105927354794`*^9}, {3.665893240899848*^9, 
   3.6658932420736275`*^9}, {3.665921419147769*^9, 3.6659214212129755`*^9}, 
   3.6670309380971017`*^9, {3.6945021000130024`*^9, 3.6945021443020024`*^9}, {
   3.6945021767506027`*^9, 3.694502179901802*^9}, {3.7155753080318336`*^9, 
   3.7155753080318336`*^9}, {3.715576090447233*^9, 3.7155760945092335`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}], "-", 
   RowBox[{"\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{
  3.7155761022652335`*^9, 3.7618349496028943`*^9, 3.7620674827181926`*^9, 
   3.762067702412719*^9, 3.7631169655743933`*^9, 3.7631170380934353`*^9, 
   3.763117073818885*^9, 3.7631209871443524`*^9, {3.776143033345583*^9, 
   3.776143061260769*^9}, 3.776340943578324*^9, 3.780887568371216*^9, 
   3.7811877347954316`*^9, 3.782109328489828*^9, 3.782195740574603*^9, 
   3.782832823492018*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "For", " ", "future", " ", "reference", " ", "we", " ", "also", " ", 
     "define", " ", "a", " ", "Positive", " ", "Primary", " ", "Otuput", " ", 
     RowBox[{"(", "PPO", ")"}], " ", "boundary"}], ",", " ", "cPPO"}], "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "-", 
            RowBox[{"c", " ", "q2"}]}], ",", "q1"}], "]"}], "\[Equal]", "0"}],
         ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "-", 
            RowBox[{"c", " ", "q2"}]}], ",", "q2"}], "]"}], "\[Equal]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"%", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "\[Equal]", "0"}], 
      ",", "c"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"cPPO", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.661166564081337*^9, 3.6611665731403017`*^9}, {
   3.665810616504362*^9, 3.665810623763214*^9}, {3.6659214274756017`*^9, 
   3.6659214287887325`*^9}, 3.6670309380981016`*^9, {3.6945022664326024`*^9, 
   3.6945022673530025`*^9}, {3.715576128440233*^9, 3.715576142454233*^9}, {
   3.761834957939642*^9, 3.7618349795548425`*^9}, {3.782130602492258*^9, 
   3.7821306049846463`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "\[Gamma]"}]], "Output",
 CellChangeTimes->{
  3.7155761449132338`*^9, {3.761834969281272*^9, 3.761834980595018*^9}, 
   3.76206748273415*^9, 3.762067702433642*^9, 3.7631169656202707`*^9, 
   3.763117038105404*^9, 3.7631170738358397`*^9, 3.763120987158315*^9, {
   3.7761430333924584`*^9, 3.776143061283747*^9}, 3.7763409436251545`*^9, 
   3.7808875684787035`*^9, 3.781187734822363*^9, 3.782109328512743*^9, 
   3.7821957405825553`*^9, 3.7828328235095644`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "We", " ", "now", " ", "plot", " ", "these", " ", "threshold", " ", "for",
      " ", "any", " ", "Lambda"}], ",", " ", 
    RowBox[{"c", " ", "and", " ", "gamma"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cPPO", ",", "clim", ",", "cdrast"}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "10"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6618433033068075`*^9, 3.661843359613968*^9}, {
   3.6620363801279526`*^9, 3.662036398281027*^9}, {3.6620364291205506`*^9, 
   3.662036429873051*^9}, {3.6620377070894623`*^9, 3.662037744783549*^9}, 
   3.665808233719198*^9, {3.6658083117516317`*^9, 3.665808356681147*^9}, {
   3.665810433366274*^9, 3.665810447038407*^9}, 3.6658932477213993`*^9, 
   3.6670309380991015`*^9, {3.6945022827894025`*^9, 3.6945022987210026`*^9}, 
   3.7155752216362333`*^9, 3.7155753080474334`*^9, {3.7155761642482333`*^9, 
   3.7155761766472335`*^9}, {3.715576224112233*^9, 3.7155762388072333`*^9}, {
   3.7618350017046127`*^9, 3.7618350545438986`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 10}}, Typeset`size$$ = {
    259.2, {84., 86.17783950225385}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Mu]$6667$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$6667$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{1 - $CellContext`\[Gamma], (-1 + $CellContext`\[Gamma]) (
          1 + (2 + $CellContext`\[Gamma]) $CellContext`\[Mu]$$)/(-1 + (-2 + \
$CellContext`\[Gamma]^2) $CellContext`\[Mu]$$), (1 + 
           2 $CellContext`\[Mu]$$)^(-1) (1 + 
          2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
           1 + $CellContext`\[Mu]$$))}, {$CellContext`\[Gamma], 0, 1}, 
        PlotStyle -> {{Black}, {Red, Thick}, {Red, Thick}}, 
        PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{296., {117.93, 122.07}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6675356690729375`*^9, 3.6945116815734067`*^9, 3.6947521019803867`*^9, 
   3.6947759414582314`*^9, 3.6950103773580256`*^9, 3.695357265318596*^9, 
   3.6959603600830245`*^9, 3.6959772585331244`*^9, 3.697168793639795*^9, 
   3.6971758253474593`*^9, 3.6972579722891417`*^9, 3.7086801187005625`*^9, 
   3.7154372923052125`*^9, 3.715437964864051*^9, 3.71543814279555*^9, 
   3.7155761804672337`*^9, {3.7155762259742336`*^9, 3.7155762395002337`*^9}, 
   3.761835024745352*^9, 3.7618350553616915`*^9, 3.7620674827530994`*^9, 
   3.7620677024546113`*^9, 3.7631169656841345`*^9, 3.7631170381193666`*^9, 
   3.7631170738707466`*^9, 3.763120987174272*^9, {3.776143034285158*^9, 
   3.7761430613285875`*^9}, 3.776340944651593*^9, 3.780887570843923*^9, 
   3.781187736330289*^9, 3.782109332209422*^9, 3.782195740608502*^9, 
   3.782832823532688*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Analysis: Exclusive contracts allowed\
\>", "Section",
 CellChangeTimes->{{3.660980757691678*^9, 3.660980759020569*^9}, {
  3.66098100496745*^9, 3.660981008049509*^9}, {3.661849700749787*^9, 
  3.661849703001012*^9}, {3.662097642565343*^9, 3.662097646777343*^9}, {
  3.665986378475314*^9, 3.665986379943461*^9}, {3.6945032842646027`*^9, 
  3.694503303333802*^9}, {3.7155762589702334`*^9, 3.715576275546233*^9}, {
  3.715576325435233*^9, 3.7155763266982336`*^9}, {3.7155802595072336`*^9, 
  3.715580274355233*^9}, {3.76183518217577*^9, 3.7618351872721224`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "EQUILIBRIA", " ", "WITH", " ", "EXCLUSIVE", " ", "REPRESENTATION"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"As", " ", "discussed", " ", "in", " ", "the", " ", "text"}], ",",
     " ", 
    RowBox[{"with", " ", "exclusive", " ", "contracts", " ", "admissible"}], 
    ",", " ", 
    RowBox[{
    "any", " ", "equilibrium", " ", "involves", " ", "exculisvity", " ", 
     "and", " ", "contemplates", " ", "the", " ", "buyer", " ", "purchasing", 
     " ", "from", " ", "the", " ", "dominant", " ", "firm", " ", "1"}], ",", 
    " ", 
    RowBox[{
    "at", " ", "the", " ", "following", " ", "prices", " ", "and", " ", 
     "associated", " ", "payoffs", " ", "and", " ", "firm", " ", "2", " ", 
     "offering", " ", "the", " ", "following", " ", "exclusive", " ", 
     RowBox[{"contract", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p2Eequ", "=", "c"}], ";", " ", 
    RowBox[{"F2Eequ", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"if", " ", "c"}], "\[GreaterEqual]", "p1m"}], "=", 
     RowBox[{
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]], " ", "then"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1Eequ", "=", "p1m"}], ";", " ", 
    RowBox[{"F1Eequ", "=", "F1m"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Eequ", "=", "PROFIT1Em"}], "\[IndentingNewLine]", 
   RowBox[{"PROFITBEequ", "=", "PROFITBE1m"}]}]}]], "Input",
 CellChangeTimes->{{3.6618423547700977`*^9, 3.661842402164837*^9}, {
   3.661842693784996*^9, 3.6618427337959967`*^9}, 3.6618427666382804`*^9, {
   3.6620381379328337`*^9, 3.662038276523689*^9}, 3.662038391813251*^9, {
   3.6620391322414565`*^9, 3.6620391935505877`*^9}, {3.662040390440967*^9, 
   3.662040415806571*^9}, {3.6620404782750435`*^9, 3.6620404816592965`*^9}, {
   3.6620405558322625`*^9, 3.6620405593496094`*^9}, 3.662097377052343*^9, {
   3.665893096333604*^9, 3.665893202001292*^9}, {3.6658935941091976`*^9, 
   3.665893615549497*^9}, {3.667031878723155*^9, 3.66703189758004*^9}, {
   3.6945033070954027`*^9, 3.6945038254914026`*^9}, {3.6945039378094025`*^9, 
   3.6945039505284023`*^9}, {3.6945039845258026`*^9, 3.694503985071802*^9}, {
   3.6945040383634024`*^9, 3.6945040426534023`*^9}, {3.6945042502510023`*^9, 
   3.6945042620602026`*^9}, {3.6945117169787583`*^9, 3.694511717228769*^9}, {
   3.7155753080474334`*^9, 3.7155753080474334`*^9}, 3.7155763693512335`*^9, {
   3.7155802858312335`*^9, 3.7155802963022337`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Mu]", "2"], "-", 
   RowBox[{
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
   RowBox[{"c", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"4", " ", "\[Mu]"}]}], ")"}]}]}], 
  RowBox[{"2", "+", 
   RowBox[{"6", " ", "\[Mu]"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["\[Mu]", "2"]}]}]]], "Output",
 CellChangeTimes->{3.7155763790382338`*^9, 3.7618351998196077`*^9, 
  3.7620674827710304`*^9, 3.762067702508428*^9, 3.7631169657389555`*^9, 
  3.763117038128377*^9, 3.763117076499715*^9, 3.763120987202237*^9, 
  3.776143061367483*^9, 3.776340947296977*^9, 3.7808875710470304`*^9, 
  3.7811877363981605`*^9, 3.782109332360607*^9, 3.7821957406174526`*^9, 
  3.782832823663138*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7155763790382338`*^9, 3.7618351998196077`*^9, 
  3.7620674827710304`*^9, 3.762067702508428*^9, 3.7631169657389555`*^9, 
  3.763117038128377*^9, 3.763117076499715*^9, 3.763120987202237*^9, 
  3.776143061367483*^9, 3.776340947296977*^9, 3.7808875710470304`*^9, 
  3.7811877363981605`*^9, 3.782109332360607*^9, 3.7821957406174526`*^9, 
  3.782832823663138*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"if", " ", "instead", " ", "c"}], "<", "p1m"}], "=", 
    RowBox[{
     FractionBox["\[Mu]", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}]], " ", "then", " ", "we", " ", "are", 
     " ", "in", " ", "a", " ", "corner", " ", "solution", " ", "with"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p1Eequcorn", "=", "c"}], ";", " ", 
    RowBox[{"F1Eequbcorn", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1E", "/.", 
     RowBox[{"p1", "->", "p1Eequcorn"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Eequcorn", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "*", "p1Eequcorn"}], " ", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ue1", "/.", 
      RowBox[{"q1", "->", "q1E"}]}], "/.", 
     RowBox[{"p1", "->", "p1Eequcorn"}]}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{"PROFITBEequcorn", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "-", 
      RowBox[{"%%%", "p1Eequcorn"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.694503946878002*^9, 3.6945039527904024`*^9}, {
   3.694503989208802*^9, 3.6945040779214025`*^9}, {3.6945138141123867`*^9, 
   3.694513820964965*^9}, {3.715575308063033*^9, 3.715575308063033*^9}, {
   3.7155763989602337`*^9, 3.715576425039233*^9}, 3.7618352158457317`*^9, {
   3.7618353290735292`*^9, 3.761835335880325*^9}, 3.7618354045603166`*^9, {
   3.7631171569296*^9, 3.763117160539982*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}]}], " ", "c"}]], "Output",
 CellChangeTimes->{
  3.6945039572696023`*^9, 3.6945040785610027`*^9, 3.694511729433683*^9, 
   3.694513831080459*^9, 3.6947521182787867`*^9, 3.6947760439035463`*^9, 
   3.695010377451626*^9, 3.6953572654433985`*^9, 3.6959603617386246`*^9, 
   3.695977258583124*^9, 3.697168793702194*^9, 3.697175825376459*^9, 
   3.6972579723515415`*^9, 3.7086801188255386`*^9, 3.7154372924715824`*^9, 
   3.715437964989067*^9, 3.715438142967395*^9, 3.715576427791233*^9, {
   3.7618352059631405`*^9, 3.761835222464098*^9}, 3.76183533768047*^9, 
   3.7618354074875154`*^9, 3.7620674827879725`*^9, 3.7620677025234222`*^9, 
   3.7631169657758536`*^9, 3.7631170381443243`*^9, 3.7631170765815077`*^9, 
   3.7631171609109793`*^9, 3.7631209872151976`*^9, 3.7761430613984003`*^9, 
   3.7763409476063547`*^9, 3.7808875713335533`*^9, 3.7811877365776625`*^9, 
   3.782109332623106*^9, 3.7821957406264544`*^9, 3.7828328236956825`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.6945039572696023`*^9, 3.6945040785610027`*^9, 3.694511729433683*^9, 
   3.694513831080459*^9, 3.6947521182787867`*^9, 3.6947760439035463`*^9, 
   3.695010377451626*^9, 3.6953572654433985`*^9, 3.6959603617386246`*^9, 
   3.695977258583124*^9, 3.697168793702194*^9, 3.697175825376459*^9, 
   3.6972579723515415`*^9, 3.7086801188255386`*^9, 3.7154372924715824`*^9, 
   3.715437964989067*^9, 3.715438142967395*^9, 3.715576427791233*^9, {
   3.7618352059631405`*^9, 3.761835222464098*^9}, 3.76183533768047*^9, 
   3.7618354074875154`*^9, 3.7620674827879725`*^9, 3.7620677025234222`*^9, 
   3.7631169657758536`*^9, 3.7631170381443243`*^9, 3.7631170765815077`*^9, 
   3.7631171609109793`*^9, 3.7631209872151976`*^9, 3.7761430613984003`*^9, 
   3.7763409476063547`*^9, 3.7808875713335533`*^9, 3.7811877365776625`*^9, 
   3.782109332623106*^9, 3.7821957406264544`*^9, 3.7828328236956825`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "threshold", " ", "for", " ", "these", " ", "two", " ", 
    "cases", " ", "is"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cEcorner", "=", "p1m"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6945040858044024`*^9, 3.6945041116186028`*^9}, 
   3.7155764487482333`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Effects of Exclusive contracts, Figure 1 and Figure 2\
\>", "Section",
 CellChangeTimes->{{3.660980757691678*^9, 3.660980759020569*^9}, {
  3.66098100496745*^9, 3.660981008049509*^9}, {3.661849700749787*^9, 
  3.661849703001012*^9}, {3.662097642565343*^9, 3.662097646777343*^9}, {
  3.665986378475314*^9, 3.665986379943461*^9}, {3.6945032842646027`*^9, 
  3.694503303333802*^9}, {3.7155762589702334`*^9, 3.715576275546233*^9}, {
  3.715576325435233*^9, 3.7155763266982336`*^9}, {3.7155802595072336`*^9, 
  3.715580274355233*^9}, {3.761835686451558*^9, 3.761835694498081*^9}, {
  3.761836853455763*^9, 3.7618368555002956`*^9}, {3.782151870750103*^9, 
  3.782151875565234*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "compare", " ", "the", " ", "common", " ", "representation", 
    " ", "equilibrium", " ", "when", " ", "exclusive", " ", "contracts", " ", 
    "are", " ", "forbidden", " ", "with", " ", "the", " ", "equilibrium", " ",
     "with", " ", 
    RowBox[{"exclusivity", "."}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Profitability", " ", "of", " ", "Exclusivity", " ", "for", " ", "the", 
     " ", "dominant", " ", "Firm", " ", "1"}], ":", " ", 
    RowBox[{
     RowBox[{
     "First", " ", "notice", " ", "that", " ", "when", " ", "with", " ", 
      "Non"}], "-", 
     RowBox[{
     "Exclusivity", " ", "the", " ", "limit", " ", "pricing", " ", "emerges", 
      " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "above"}], " ", "the", " ", "red", 
        " ", "dashed", " ", "curved", " ", "line", " ", "in", " ", "the", " ",
         "figure", " ", "below"}], ")"}], " ", "then", " ", "Exclusivity", 
      " ", "clearly", " ", "dominates", " ", "for", " ", "firm", " ", 
      "1."}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "The", " ", "next", " ", "comparison", " ", "is", " ", "the", " ", "one",
       " ", "relevant", " ", "for", " ", "c"}], ">", "p1m"}], ",", " ", 
    RowBox[{
    "where", " ", "p1m", " ", "is", " ", "the", " ", "blue", " ", "line", " ",
      "in", " ", 
     RowBox[{"figure", ".", " ", "Hence"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "between", " ", "the", " ", "green", " ", "lines", " ", "and", " ", 
      "above", " ", "the", " ", "blue", " ", "line", " ", "Exclusivity", " ", 
      "dominates", " ", "Non"}], "-", "Exclusivity"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpprofNE", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PROFIT1NE", "-", "PROFIT1Eequ"}], "==", "0"}], ",", "c"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "The", " ", "next", " ", "comparison", " ", "is", " ", "the", " ", "one",
       " ", "relevant", " ", "below", " ", "the", " ", "blue", " ", "line", 
      " ", 
      RowBox[{"i", ".", "e", ".", " ", "for"}], " ", "c"}], "<", 
     RowBox[{"p1m", ":", " ", 
      RowBox[{
       RowBox[{
       "between", " ", "the", " ", "black", " ", "lines", " ", "Exclusivity", 
        " ", "dominates", " ", "Non"}], "-", "Exclusivity"}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpprofNEcorn", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PROFIT1NE", "-", "PROFIT1Eequcorn"}], "==", "0"}], ",", 
       "c"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Plotting", " ", "all", " ", "boundaries"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"p1m", ",", "cdrast", ",", "clim", ",", 
      RowBox[{"tmpprofNE", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNEcorn", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNEcorn", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", "Green", ",", "Green", 
          ",", "Black", ",", "Black"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "10"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.694513394048639*^9, 3.69451351125737*^9}, {
   3.6945135602390842`*^9, 3.6945135914592075`*^9}, {3.6945136285974693`*^9, 
   3.694513680578264*^9}, {3.6945138631801376`*^9, 3.6945138786612887`*^9}, {
   3.6945139557029743`*^9, 3.6945139561717496`*^9}, {3.6945144030649347`*^9, 
   3.694514404221354*^9}, {3.694514541938816*^9, 3.6945145423450875`*^9}, {
   3.694514573249366*^9, 3.6945145741869164`*^9}, {3.694514604542452*^9, 
   3.6945146693530817`*^9}, {3.6945147949323425`*^9, 3.694514838650522*^9}, {
   3.6945149418962927`*^9, 3.6945149473866353`*^9}, {3.694514983315209*^9, 
   3.6945150981673155`*^9}, {3.694515143140435*^9, 3.694515206134842*^9}, {
   3.6945152589430647`*^9, 3.694515583918955*^9}, {3.6945158663795805`*^9, 
   3.6945158701707687`*^9}, {3.694516447013389*^9, 3.694516483822488*^9}, {
   3.694517917878482*^9, 3.6945179218669224`*^9}, {3.695965373361224*^9, 
   3.6959654574240246`*^9}, 3.7155752217142334`*^9, 3.7155753080786333`*^9, {
   3.7155765651362333`*^9, 3.715576566263233*^9}, {3.7155766873082333`*^9, 
   3.715576799921233*^9}, {3.76183573487079*^9, 3.7618357395444136`*^9}, {
   3.761835781632733*^9, 3.761835786428872*^9}, {3.7631171009692698`*^9, 
   3.763117105871166*^9}, {3.7631171699846835`*^9, 3.763117171931478*^9}, 
   3.780887616840855*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 10}}, Typeset`size$$ = {
    259.2, {84., 86.17783950225385}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Mu]$6723$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$6723$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`\[Mu]$$/(1 + 
         2 $CellContext`\[Mu]$$), (1 + 2 $CellContext`\[Mu]$$)^(-1) (1 + 
          2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
           1 + $CellContext`\[Mu]$$)), (-1 + $CellContext`\[Gamma]) (
          1 + (2 + $CellContext`\[Gamma]) $CellContext`\[Mu]$$)/(-1 + (-2 + \
$CellContext`\[Gamma]^2) $CellContext`\[Mu]$$), (1 + 
           2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
          2 $CellContext`\[Mu]$$ - 
          2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - \
$CellContext`\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 - ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + 
           2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^3 - 
           2 $CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^3 + $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^
          Rational[1, 2]), (1 + 
           2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
          2 $CellContext`\[Mu]$$ - 
          2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - \
$CellContext`\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 + ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + 
            2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^3 - 
            2 $CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^3 + $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^Rational[1, 2]), 
         Rational[
          1, 2] (-2 + $CellContext`\[Gamma]^2 - 4 $CellContext`\[Mu]$$ + 
           3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^(-1) (-2 + 
          2 $CellContext`\[Gamma] - 4 $CellContext`\[Mu]$$ + 
          2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ + 
          2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$ - ((2 - 
             2 $CellContext`\[Gamma] + 4 $CellContext`\[Mu]$$ - 
             2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - 
             2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^2 - 
           4 (-1 + 2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + 
            2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$) (-2 + $CellContext`\[Gamma]^2 - 
            4 $CellContext`\[Mu]$$ + 
            3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$))^Rational[1, 2]), 
         Rational[
          1, 2] (-2 + $CellContext`\[Gamma]^2 - 4 $CellContext`\[Mu]$$ + 
           3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^(-1) (-2 + 
          2 $CellContext`\[Gamma] - 4 $CellContext`\[Mu]$$ + 
          2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ + 
          2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$ + ((2 - 
              2 $CellContext`\[Gamma] + 4 $CellContext`\[Mu]$$ - 
              2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - 
              2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^2 - 
            4 (-1 + 2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + 
             2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$) (-2 + $CellContext`\[Gamma]^2 - 
             4 $CellContext`\[Mu]$$ + 
             3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$))^
           Rational[1, 2])}, {$CellContext`\[Gamma], 0, 1}, 
        PlotRange -> {0, 1}, 
        PlotStyle -> {
         Blue, {Red, Thick}, {Red, Thick}, Green, Green, Black, Black}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{296., {117.93, 122.07}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.694513684835427*^9, {3.694513870549755*^9, 3.6945138837296157`*^9}, 
   3.694513961125513*^9, 3.694514409249094*^9, 3.694514580373291*^9, {
   3.694514641472294*^9, 3.694514670368762*^9}, 3.694514844808152*^9, 
   3.694514953172954*^9, 3.69451502071692*^9, {3.694515051175653*^9, 
   3.6945150687436132`*^9}, 3.694515107506527*^9, 3.6945152173449154`*^9, 
   3.6945155943425493`*^9, 3.694517909518482*^9, 3.694752125095987*^9, 
   3.6947760446450415`*^9, 3.6947864588485813`*^9, 3.6950103779976254`*^9, 
   3.695357266012615*^9, 3.695960362284624*^9, 3.695965591227024*^9, 
   3.6959754755167246`*^9, 3.6959772591581244`*^9, 3.697168794248191*^9, 
   3.6971758259624577`*^9, 3.6972579728725386`*^9, 3.708680120278867*^9, 
   3.7154372934732504`*^9, 3.7154379657704277`*^9, 3.715438143789511*^9, {
   3.7155767561622334`*^9, 3.7155768012692337`*^9}, {3.761835769461282*^9, 
   3.7618357872337513`*^9}, 3.7620674828468733`*^9, 3.762067702582265*^9, 
   3.7631169658636184`*^9, 3.7631170382091255`*^9, {3.7631171011996555`*^9, 
   3.7631171062421684`*^9}, 3.7631171655345893`*^9, 3.7631209872730083`*^9, {
   3.7761430377775116`*^9, 3.7761430614662547`*^9}, 3.7763409528691044`*^9, 
   3.781189823532029*^9, 3.7821306895017548`*^9, 3.782195740686308*^9, 
   3.7828328238645535`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Hence", " ", "we", " ", "define", " ", "the", " ", "relevant", " ", 
   "boundaries"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7155768352782335`*^9, 3.7155768437082334`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"profitability1E", "=", 
   RowBox[{"tmpprofNE", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"profitability1Ecorn", "=", 
   RowBox[{"tmpprofNEcorn", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.715576826473233*^9, 3.715576877157233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Summarizing", " ", "the", " ", "effect", " ", "of", " ", "exclusivity", 
    " ", "as", " ", "in", " ", "the", " ", "paper", " ", 
    RowBox[{"(", 
     RowBox[{"figure", " ", "1"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "p1Eequ"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cdrast", ",", 
      RowBox[{"Max", "[", 
       RowBox[{
        RowBox[{"Re", "[", "profitability1E", "]"}], ",", 
        RowBox[{"Re", "[", "profitability1Ecorn", "]"}]}], "]"}]}], "}"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"Quiet", "[", 
        RowBox[{"Plot", "[", 
         RowBox[{"%", ",", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
             RowBox[{"{", "Black", "}"}]}], "}"}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"Filling", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2", "->", "Bottom"}], "}"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"FillingStyle", "\[Rule]", 
           RowBox[{"{", "LightGray", "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<\[Gamma]\>\"", ",", "\"\<c\>\""}], "}"}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{
             RowBox[{"LineLegend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "\"\<\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])\>\""}], 
                "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], 
                 "}"}]}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"0.75", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Ticks", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Line", "[", "%%", "]"}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "6"}], "}"}], ",", "0.01", ",", "15"}], "}"}]}],
     "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6945156372246504`*^9, 3.6945158474739866`*^9}, {
   3.6959654962770243`*^9, 3.6959656449304247`*^9}, {3.6959657152128243`*^9, 
   3.695965732981224*^9}, {3.6959754892119246`*^9, 3.6959755376855245`*^9}, {
   3.7154380226512413`*^9, 3.7154380231825943`*^9}, 3.715575221761033*^9, 
   3.7155753080786333`*^9, {3.715576883565233*^9, 3.715576920671233*^9}, {
   3.7155769554222336`*^9, 3.7155769599742336`*^9}, {3.7155770634602337`*^9, 
   3.7155770655572333`*^9}, {3.7155771116802335`*^9, 
   3.7155771135512333`*^9}, {3.7155772040482335`*^9, 
   3.7155774632642336`*^9}, {3.7155775291692333`*^9, 
   3.7155775812122335`*^9}, {3.7155776233452334`*^9, 
   3.7155776459452333`*^9}, {3.7155778275922337`*^9, 
   3.7155778789292336`*^9}, {3.7155780006952333`*^9, 
   3.7155780369222336`*^9}, {3.7155783238402333`*^9, 3.715578325704233*^9}, {
   3.7155803694242334`*^9, 3.7155803747102337`*^9}, {3.7155806265812335`*^9, 
   3.7155806385552335`*^9}, {3.715584836612233*^9, 3.7155848375162334`*^9}, {
   3.761836441228179*^9, 3.761836450869453*^9}, {3.7620677485533648`*^9, 
   3.7620677625738473`*^9}, {3.7631172282717905`*^9, 3.763117229405758*^9}, {
   3.7631172980491667`*^9, 3.763117298763256*^9}, 3.7631173625845623`*^9, {
   3.7631174451497355`*^9, 3.7631175536096506`*^9}, {3.763117807888564*^9, 
   3.763117837009678*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 6, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 6}, 0.01, 15}}, Typeset`size$$ = {
    259.2, {87., 88.47101253946352}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[Mu]$6761$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 6}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$6761$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Quiet[
         Plot[{(1 + 2 $CellContext`\[Mu]$$)^(-1) (1 + 
            2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
             1 + $CellContext`\[Mu]$$)), 
           Max[
            
            Re[(1 + 2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
              2 $CellContext`\[Mu]$$ - 
              2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 - ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + 
               2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^3 - 
               2 $CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^3 + \
$CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^Rational[1, 2])], Rational[1, 2] 
            Re[(-2 + $CellContext`\[Gamma]^2 - 4 $CellContext`\[Mu]$$ + 
                3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^(-1) (-2 + 
               2 $CellContext`\[Gamma] - 4 $CellContext`\[Mu]$$ + 
               2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ + 
               2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$ + ((2 - 
                   2 $CellContext`\[Gamma] + 4 $CellContext`\[Mu]$$ - 
                   2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - 
                   2 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)^2 - 
                 4 (-1 + 
                  2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + 
                  2 $CellContext`\[Gamma] $CellContext`\[Mu]$$ - \
$CellContext`\[Gamma]^2 $CellContext`\[Mu]$$) (-2 + $CellContext`\[Gamma]^2 - 
                  4 $CellContext`\[Mu]$$ + 
                  3 $CellContext`\[Gamma]^2 $CellContext`\[Mu]$$))^
                Rational[1, 2])]]}, {$CellContext`\[Gamma], 0, 1}, 
          PlotRange -> {0, 1}, PlotStyle -> {{Black, Thick}, {Black}}, 
          Filling -> {2 -> Bottom}, FillingStyle -> {LightGray}, 
          AxesLabel -> {"\[Gamma]", "c"}, PlotLegends -> Placed[
            
            LineLegend[{
             "\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])", 
              "\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])"}, 
             LabelStyle -> {FontFamily -> "Courier"}], {0.75, 0.8}], 
          Ticks -> {{0, 1}, {0, 1}}]], 
        Graphics[{
          
          Line[{{1, 0}, {
            1, $CellContext`\[Mu]$$/(1 + 2 $CellContext`\[Mu]$$)}}]}]], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 6}, 0.01, 15}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{296., {120.93, 125.07}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7155775491162333`*^9, 3.7155775834442334`*^9, 3.7155776466672335`*^9, {
   3.7155778346142335`*^9, 3.7155778795732336`*^9}, 3.7155783264922333`*^9, 
   3.7155806393922334`*^9, 3.7155848390372334`*^9, 3.7618358123157363`*^9, 
   3.761836452471116*^9, 3.762067482876736*^9, 3.762067702647091*^9, 
   3.762067763058548*^9, 3.7631169659294434`*^9, 3.7631170382320995`*^9, 
   3.763117176756588*^9, 3.7631172301507645`*^9, 3.7631172995970254`*^9, 
   3.7631173660582695`*^9, {3.763117449769413*^9, 3.763117468095366*^9}, {
   3.7631175288528647`*^9, 3.763117554252965*^9}, {3.763117815745575*^9, 
   3.7631178258545127`*^9}, 3.7631209873398314`*^9, {3.776143037892925*^9, 
   3.7761430615001287`*^9}, 3.776143095891988*^9, 3.7763409529315863`*^9, 
   3.7821957407052183`*^9, 3.7828328241933517`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Summarizing", " ", "the", " ", "effect", " ", "of", " ", "exclusivity", 
    " ", "as", " ", "in", " ", "the", " ", "paper", " ", 
    RowBox[{"(", 
     RowBox[{"figure", " ", "1"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]plot", "=", "6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "p1Eequ"}], "}"}]}], "}"}], "/.", 
      RowBox[{"\[Mu]", "\[Rule]", "\[Mu]plot"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cdrast", ",", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{"Re", "[", "profitability1E", "]"}], ",", 
         RowBox[{"Re", "[", "profitability1Ecorn", "]"}]}], "]"}]}], "}"}], "/.", 
     RowBox[{"\[Mu]", "\[Rule]", "\[Mu]plot"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Figure1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Quiet", "[", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}]}], "}"}]}], 
         ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Filling", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", "->", "Bottom"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", "\[Rule]", 
              RowBox[{"{", "1", "}"}]}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"FillingStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.8"}], "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Darker", "[", "Gray", "]"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<\!\(\*
StyleBox[\"\[Gamma]\",
FontFamily->\"Courier New\",
FontSize->10,
FontWeight->\"Plain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"c\",
FontFamily->\"Courier New\",
FontSize->10,
FontWeight->\"Plain\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Ticks", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"AxesStyle", "\[Rule]", 
          RowBox[{"Arrowheads", "[", 
           RowBox[{"{", 
            RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}]}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Line", "[", "%%", "]"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\"c\", 
StyleBox[\"DRAS\",
FontSize->5]]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.6", ",", "0.75"}], "}"}]}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<\!\(\*SubscriptBox[\"c\", 
StyleBox[\"PROF\",
FontSize->5]]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.6", ",", "0.15"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure1.pdf\>\"", ",", "Figure1"}], "]"}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7618366542239323`*^9, 3.761836655091879*^9}, {
   3.761836691051484*^9, 3.7618367257508907`*^9}, {3.7620658850211153`*^9, 
   3.762065912652255*^9}, {3.7620677714481244`*^9, 3.762067772234975*^9}, {
   3.7631178477220263`*^9, 3.763117917080558*^9}, {3.763118053850721*^9, 
   3.7631180558234463`*^9}, {3.763118395460063*^9, 3.7631184275641975`*^9}, {
   3.76311848773929*^9, 3.7631186754482145`*^9}, {3.7631187229232407`*^9, 
   3.7631187604309235`*^9}, 3.7631188373352833`*^9, {3.7631209813458643`*^9, 
   3.7631210027436666`*^9}, {3.7821307967773385`*^9, 
   3.7821308350839434`*^9}, {3.782130880736909*^9, 3.7821308976147976`*^9}, 
   3.782130982861978*^9, {3.7821310971552143`*^9, 3.782131260007617*^9}, {
   3.78213164990158*^9, 3.782131654539177*^9}, {3.782131709619109*^9, 
   3.7821317142826424`*^9}, {3.7821321007600656`*^9, 
   3.7821321087209735`*^9}, {3.782132178844673*^9, 3.782132230431108*^9}, {
   3.7821323045461135`*^9, 3.7821323286596575`*^9}, {3.7821323799771795`*^9, 
   3.7821324909632797`*^9}, {3.782132562372153*^9, 3.782132591056355*^9}, {
   3.7821330936981025`*^9, 3.782133227317334*^9}, {3.782133257529575*^9, 
   3.782133293805622*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl1gs0VGsbB3CVTqqTUrqoKEpXhkpI6Z/UIcRxKRSD0oVKikrS0fSRXIpK
kogQqVwy465URIQSGZeZMcaMO1sXSYrPWd/n7azv22vttdez1rPe9e693v37
P/L7jpsdGC8mJsYZvf9+Ghxor3resWvzlRSZ7yMjFBgSzOX+MqHYbOcV5ZxE
wcr6Xmrfx3j4O7PeBxlSmDrCsNGTS8U207cn2j73QtG0t70wkIUVN16v/R7V
izOVGxD+JQf3VW75Fm3pxVyWFG/cuALcSNTfWtLRg0yBbvnbTS8h4/k2hBHY
g5fOUQusu4tQmqg27gutB/3LtKcnHytBR5pX4926bowffDRjgWIZ4qQj9Mad
64b6iH2meUo5KswjZCOXdKPcR62yeNVbLO71mE1VdGFRSNdgUu87/N6iFD3o
2oWugSbeB9X3cGIWXt80vwvxnXllklerQeepzNPI74SkbCIlFNbgvKNnQYdd
J4KcMg7GLK3FtOLEdzWTO/F1yyPhYW821C4+dDvzuAPua4tYcwrrUCETcsFs
VweaUooCq+QbMDLVcJHoazuGnGvurPRsxB5rYZNKRDtW60waPpjHgeJF+ylM
3XboxcofejKXh4CJ6cU9ojackbVTaLZpgr1ja7f91TYode+ayt7Jh53coFqQ
ZhtmTe+TKPrOx8DaZsnjja0QL7iTuiSyGcMKj80CfFpxRC2vfrKhANHHjFbY
LmvFox37Yp59FcBp1ptF7aUi9HfNn9Ea1oL4UCXGIzcRMsz1JoRuE8LDdb/7
sjkieOv7RrNahchbfr6q/pkQ8lyDujhfEVZpnfpzu5MQWho+oTJrW6GSuNXh
8O9C2Mi9HRxX3YoH1KfGwowW9JddEbgy2pB93aO91rIF4eJ0d7Ol7dCUaqYr
iLVgFi8jdnxROwSdywcUHwow8TzDYsOJDigu2ibfbCSAWBI9VTCzE/U03Yya
/macjEi9MvNlJxRvz230vtWMp6svS0i5dOEOvUyhRasZUgYnlS5KdoMxYlfz
l5APjvK76rP53RAbKpv7/hIfaXexVEjvQV/VvFe2KnzYpqpLyQ73YJZEwApd
ZhMu+N5jcB6OnlP5K50bBnlIbpe9I2lE4enHXRfuGfJwa9HU/r//A99zu5Pq
/LmImW1yKUDGB6Lf3hhm1FBQ8JHWn5RAIUa9VvppJxdcFT/dKzLuyNnzKXZP
J4XD6rc/TjlLgSYdZqCygAdOVfDdCdUUpK3nNBnkcmHpOPD0uowj4sQvGSv3
UwgI3lsctI9C//jTBw6v42FklZmbbz6FBr2vg/96z0WuR0Upo4OCkbN6kVQs
F4YV7PQoGQuE15vEh32nsDA/P22nJQXr76JPPuAhxJJp+8cTCptx0C+GN9p/
n8bayqOQ6pBgSkvhYoXR0abnXyh0nCxW77/Jxbro8EimzDbMKlIzMfxJwdGs
RzHFlMKUr1Ebbmznob6n5X3CIwqUllxlipCL0I12K+PqKNjb0sM3sbg4IYi0
kKcoRLj8dX5CJBf8jI3O9qP70jgj2dcazIW47nzXJhk1mGxIjL8/TOFylK89
z5iC8POgTYQ+D8OaXtPYDyi81vT8mNHGRfalgf3VHyho7c3N083iIkx5fbBp
NwW3ow0xU6JH1xtXEx8yQGH6KedZvde5yHeOU1Ed3Tf9bHp5UxAXY54pcHcy
/+nZSJYqK/NOF/Hs54aPTU3NrcQzwzPT6n5cFhDPZquXemgJOcSzGVUf2KnX
64lnQ3cYWxvS2MSznNWnSibOqCWeXftavkaUXkM8qwxOnmR7rZp4puPcIYp1
f088E/qtKj53oYp4JtVXrlV47x3xrI3eURrp/ZZ4tpotijD8XEE8S80Sv19s
W048KzzLP0oTlRHP3o9nxC+4VUo8G6a93BKt/Zp4NlljZV/A5BLiWaoxW3FS
2SviWU+yeVZ0VBHxDBPzLliEFBLPVqa+lnQ585J4NjgyFFnn+YJ4FuSlI8cK
fE48qxosfbNboYB4Fi3bFn2S/pR4FhM2R6HEJ4949q2oV25BYQ7xbBJ9rlWs
UjbxTEdqjtU6RibxrHbkw9oFwyziWeC3MIvNV5jEs1ks65dGEunEM1O37VP8
EtOIZ7s3+r7eeCiFeLYnS7/9cuEj4plvx9xxP7WTiGeJykPrmm8kEM/WvnEQ
XV0eTzxTKVnlZx1+j3gWFrDNR8nwLvFs6/HFdgq1t4lnEzmKIwFyN4lnB2st
lnRWhRDPRN752asO+hPPTu7VczyadIF4pmc/7M7Zd4J4xhg4pnM5RG3zmGc/
Zjt50Ct6sOvBrTdu09KR1GVQ8/Q4H5XTpaVpW7JQYnP68HVhA/Re3Jes8MyH
Y3Ksw+FrdXCgJ9g+4D1HDqsm6VltLfGQpn225Td9B+JhV8oZz+jWXvSYd+cb
Vqbhs0V36K1zzfBUZQx/E2XgyadXD4/nN6KphEpI18jDZNT4TphWD/VIy4RQ
lefYVDO/VFyHTTydd2lDsIyYM/LGlwyeBRPr5H4L6uLzoEAlrNwfkQ3G4jD9
NNUG4q2q5NyqZ1qmxFuO+O64nW4UcpLCMrJoaViv1nVm/ngB3j3PcuNpZkBD
/S+OwRYOVr+RdlMMy8VQmam4i3E9tp62vzk7rQCFz6aeU/FgE69/tMsFrHdw
gb9Zz/tJyelwW25o3ljTBA9v7l39nizIWbL99P0aiOfTNTQSpgussTTGwH/W
jUzsbQ91CjBoxMeE8GaVbiacG21F5q9/ec+e4Tt/mZoO8f6FZtPRhJxR15PY
+xufpkLD/0ev93YBvkuY00wFLNilKPMfBnFQZbS8nr49F9PTY4uVXeuhNDsn
J9CqAG4HxPhmoWySF5mbs8V9d7ji+Pmtb7Vt03HusY6lhDIfcSUe1nlhWUg8
7fz4B6uB5AnfvOOypiYdJu0i3UubMtFnKoMsRiPYVT3cA5FM3Ny9ovBeDo/k
TXbQqpiV1Ttw32NhzpHgDJRGFz4JHGrEVC9d0eBGFpSP7Mi13P4rj7Q4bpIC
1TUkj04t0Zeo5lBYWqNkL+WSisFti702HhJgRnJM4JQsFs6x6MHZmRzEX1EN
GlqYC7rEuwe7GPWIdRS9KVYqgCUlVukfyyZ51mfmM3NJrSsEM49VWK1Ph5Dr
9tLOmI/sI8WZ7key4NK518GvvIHkXf6JgVdf19jDMWjdPUhlIlPM+M+wu40w
ODSPc8GdCdeCLwsV83kkD9nmva4dS4yRu9B5jqJjBsTF/cRlZTn4S8qlRVqa
BXfP21HaF37lJTtKt7jwzQY4bipsMihiIitd2JKjykN467w23n4WTNi3xVfP
/JWni5Xt5u5UkSd5+lO1ysapl0K4kyVd6Y/R8+Atc2KBhwDzvfW0Dt1j4fGc
u4E/yjmQpGWISiVy8e3EI+sf/vWwCRqyEM4pwIvHOZUpSWySx+cmxFl5LTyB
SNuLRgfl0+GfQB+YZsdHofaxA1W7stC+XsfEq66B5HVwA23xt3x7HKc3mEQO
ZeDKVJsJ+5Ib8cp+dt52JyY0JtrqNYx+n7E8l1Vjehkt+xOveme8YhhnQDJ4
3TEvGgeaNv/apyDGQuintLrfY3/l/bBbkly1zGbI+dXRrdKY4EdXrLHP5sFs
De1gtwkLW9P/uDq06tc8MNN8aOGi1ysRsnCCrdtlJhZYcg+25PJQVGzlOGkF
C549T/aGO3Dx8GOyvXYdE+45Vtpx/b/mh9Q1N2rv0KQQK9V3n6/DhNqyH840
Vu//vc//+nNLzaXBzoKJ9GMvmVR6L16s+U/NvPakQ1D5q//7B90yy3+sVz5R
J8rvSS+ZV8T+e431j9Vj/WP1mOdj9b8BNtfv/w==
    "], {{{}, {}, {}, 
      {RGBColor[
       0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
       EdgeForm[None], 
       GraphicsGroupBox[{
         PolygonBox[{{78, 217, 218, 140, 149, 161, 176, 194, 129, 135, 144, 
          156, 171, 189, 81, 80, 79, 128, 134, 143, 155, 170, 188}}], 
         PolygonBox[{{198, 219, 220, 127, 209, 187, 205, 169, 184, 202, 154, 
          166, 181, 199, 142, 151, 163, 178, 196, 133, 139, 148, 160, 175, 
          193, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 
          114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102, 
          101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 
          85, 132, 138, 147, 159, 174, 192, 84, 131, 137, 146, 158, 173, 191, 
          83, 141, 150, 162, 177, 195, 130, 152, 164, 179, 197, 136, 167, 182,
           200, 145, 157, 172, 190, 82, 186, 204, 168, 207, 183, 201, 153, 
          208, 185, 203, 165, 206, 180}}]}]}, {}, {}, 
      {RGBColor[0.9, 0.9, 0.9], EdgeForm[None], 
       GraphicsGroupBox[{
         PolygonBox[{{78, 188, 170, 155, 143, 134, 128, 79, 80, 81, 189, 171, 
          156, 144, 135, 129, 194, 176, 161, 149, 140, 215, 4, 3, 2, 51, 53, 
          56, 60, 65, 71, 1}}], 
         PolygonBox[{{198, 180, 206, 165, 203, 185, 208, 153, 201, 183, 207, 
          168, 204, 186, 82, 190, 172, 157, 145, 200, 182, 167, 136, 197, 179,
           164, 152, 130, 195, 177, 162, 150, 141, 83, 191, 173, 158, 146, 
          137, 131, 84, 192, 174, 159, 147, 138, 132, 85, 86, 87, 88, 89, 90, 
          91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 
          106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
          119, 120, 121, 122, 123, 124, 125, 126, 193, 175, 160, 148, 139, 
          133, 196, 178, 163, 151, 142, 199, 181, 166, 154, 202, 184, 169, 
          205, 187, 209, 127, 50, 77, 70, 76, 64, 69, 75, 59, 63, 68, 74, 55, 
          58, 62, 67, 73, 52, 54, 57, 61, 66, 72, 49, 48, 47, 46, 45, 44, 43, 
          42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 
          25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 
          8, 7, 6, 5, 216}}]}]}, {}, {}, {}}, {{}, {}, {}, 
      {GrayLevel[0], Thickness[0.003], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 215, 210, 213, 216, 5, 6, 
        7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 
        25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
        42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 
        58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {GrayLevel[0], Thickness[0.003], 
       LineBox[{78, 188, 170, 155, 143, 134, 128, 79, 80, 81, 189, 171, 156, 
        144, 135, 129, 194, 176, 161, 149, 140}], 
       LineBox[{198, 180, 206, 165, 203, 185, 208, 153, 201, 183, 207, 168, 
        204, 186, 82, 190, 172, 157, 145, 200, 182, 167, 136, 197, 179, 164, 
        152, 130, 195, 177, 162, 150, 141, 83, 191, 173, 158, 146, 137, 131, 
        84, 192, 174, 159, 147, 138, 132, 85, 86, 87, 88, 89, 90, 91, 92, 93, 
        94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 
        109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
        123, 124, 125, 126, 193, 175, 160, 148, 139, 133, 196, 178, 163, 151, 
        142, 199, 181, 166, 154, 202, 184, 169, 205, 187, 209, 127}]}, 
      {RGBColor[0.9, 0.9, 0.9], 
       LineBox[{212, 214, 211}]}}, {{}, {}, {}, {}}}], 
   LineBox[NCache[{{1, 0}, {1, Rational[6, 13]}}, {{1, 0}, {
      1, 0.46153846153846156`}}]], {
    InsetBox["\<\"\\!\\(\\*SubscriptBox[\\\"c\\\", \\n StyleBox[\\\"DRAS\\\",\
\\nFontSize->5]]\\)\"\>", {0.6, 0.75}], 
    InsetBox["\<\"\\!\\(\\*SubscriptBox[\\\"c\\\", \\n StyleBox[\\\"PROF\\\",\
\\nFontSize->5]]\\)\"\>", {0.6, 0.15}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"\[Gamma]\\\",\\nFontFamily->\\\"Courier New\\\
\",\\nFontSize->10,\\nFontWeight->\\\"Plain\\\"]\\)\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"c\\\",\\nFontFamily->\\\"Courier \
New\\\",\\nFontSize->10,\\nFontWeight->\\\"Plain\\\"]\\)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Method->{"AxesInFront" -> True},
  PlotRange->{{0, 1.1}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.782131226737937*^9, 3.78213124921646*^9}, {
   3.7821312814468756`*^9, 3.78213128883416*^9}, 3.7821313430095663`*^9, 
   3.782131489261692*^9, 3.7821315236332693`*^9, {3.7821315623315496`*^9, 
   3.7821316132239246`*^9}, 3.782131714988755*^9, {3.7821321883830442`*^9, 
   3.782132231046463*^9}, {3.7821323068080683`*^9, 3.7821323291932306`*^9}, 
   3.7821323875638995`*^9, {3.7821324205548754`*^9, 3.782132491482889*^9}, {
   3.78213256266932*^9, 3.782132601691925*^9}, {3.7821330965644407`*^9, 
   3.7821332275556965`*^9}, {3.782133258987677*^9, 3.7821332989129543`*^9}, 
   3.7821334359336863`*^9, 3.782134707510924*^9, 3.7821348759826856`*^9, 
   3.7821349165277724`*^9, 3.782195740938634*^9, 3.7828328247264185`*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.7821341810577602`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Changes", " ", "in", " ", "profitability", " ", "and", " ", "welfare"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"param", "=", 
     RowBox[{"{", 
      RowBox[{"\[Mu]", "\[Rule]", "5"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1m", "/.", "param"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"PROFIT1NE", "-", "PROFIT1Eequ"}], ")"}], "/", "PROFIT1NE"}], "/.",
      "param"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"WelfNE", "-", " ", "PROFITBEequcorn"}], ")"}], "/", 
      "WelfNE"}], "/.", "param"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"WelfLimit", "-", " ", "PROFITBEequcorn"}], ")"}], "/", 
      "WelfLimit"}], "/.", "param"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Dprofit", "=", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"PROFIT1NE", "-", "PROFIT1Eequcorn"}], ")"}], "/", 
            "PROFIT1NE"}], ",", 
           RowBox[{"c", "<", "clim"}]}], "}"}], ",", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"PROFIT1Limit", "-", "PROFIT1Eequcorn"}], ")"}], "/", 
            "PROFIT1Limit"}], ",", 
           RowBox[{"c", "\[GreaterEqual]", "clim"}]}], "}"}]}], "}"}], "]"}], 
      "/.", "param"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "%"}], ",", 
         RowBox[{"Min", "[", 
          RowBox[{"%%%", ",", "%%"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"c", ",", "0.3"}], "}"}], ",", "0", ",", "%%%%%"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7808877439532356`*^9, 3.78088783928741*^9}, 
   3.78088790152151*^9, {3.78088807952899*^9, 3.780888150424729*^9}, {
   3.780888187862903*^9, 3.7808882249735503`*^9}, {3.7808883545891905`*^9, 
   3.7808884422833905`*^9}, {3.780888595557047*^9, 3.7808886054392276`*^9}, {
   3.780888730683958*^9, 3.7808889469268847`*^9}, {3.7808890462485776`*^9, 
   3.7808890513159924`*^9}, {3.782109446087987*^9, 3.782109523891474*^9}, {
   3.7821096486228743`*^9, 3.7821096545727444`*^9}, 3.7821097040437593`*^9, {
   3.782109807954556*^9, 3.782109857609132*^9}, 3.7821099236138263`*^9, {
   3.782110149549723*^9, 3.78211019795918*^9}, {3.7821103093006945`*^9, 
   3.782110352214383*^9}, {3.7821341710235415`*^9, 3.7821341780298123`*^9}, {
   3.782136552962132*^9, 3.7821365670757093`*^9}}],

Cell[BoxData[
 FractionBox["5", "11"]], "Output",
 CellChangeTimes->{
  3.780887750825941*^9, 3.7808877971102657`*^9, 3.7808878446209908`*^9, 
   3.780887902273836*^9, {3.780888099985665*^9, 3.780888150675007*^9}, {
   3.780888188898285*^9, 3.7808882252109985`*^9}, {3.780888392744861*^9, 
   3.780888442658154*^9}, {3.7808885788333826`*^9, 3.780888606276317*^9}, {
   3.780888731431535*^9, 3.7808887545999107`*^9}, 3.780888918662858*^9, 
   3.780888952026252*^9, 3.7808890518810472`*^9, 3.7811879700131598`*^9, 
   3.782109344503267*^9, {3.7821095086775036`*^9, 3.7821095241240454`*^9}, 
   3.782110198939891*^9, {3.782110327152271*^9, 3.782110352782321*^9}, {
   3.7821365573880157`*^9, 3.782136567796362*^9}, 3.7821957418481636`*^9, 
   3.7828328261279573`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0.3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`c$$], 0.3}, 0, 
      Rational[5, 11]}}, Typeset`size$$ = {259.2, {78., 80.06112240761149}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`c$7213$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`c$$ = 0.3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$7213$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{-Piecewise[{{
            Rational[-11, 3] (
               1 + (-1 + $CellContext`c$$) $CellContext`\[Gamma])^(-2) (-1 + \
$CellContext`\[Gamma]^2) ((-1 + $CellContext`c$$) $CellContext`c$$ + 
              Rational[-3, 11] (
                 1 + (-1 + $CellContext`c$$) $CellContext`\[Gamma])^2/(-1 + \
$CellContext`\[Gamma]^2)), $CellContext`c$$ < (-1 + $CellContext`\[Gamma]) (1 + 
               5 (2 + $CellContext`\[Gamma]))/(-1 + 
              5 (-2 + $CellContext`\[Gamma]^2))}, {(-12) (-1 + \
$CellContext`c$$)^(-1) $CellContext`\[Gamma]^2 (-(-11 + \
$CellContext`\[Gamma]) (-1 + $CellContext`\[Gamma]) + $CellContext`c$$ (
                 11 + $CellContext`\[Gamma]^2))^(-1) ((-1 + $CellContext`c$$) \
$CellContext`c$$ + 
              Rational[-1, 
                 12] (-1 + $CellContext`c$$) $CellContext`\[Gamma]^(-2) \
(-(-11 + $CellContext`\[Gamma]) (-1 + $CellContext`\[Gamma]) + \
$CellContext`c$$ (
                  11 + $CellContext`\[Gamma]^2))), $CellContext`c$$ >= (-1 + \
$CellContext`\[Gamma]) (1 + 5 (2 + $CellContext`\[Gamma]))/(-1 + 
              5 (-2 + $CellContext`\[Gamma]^2))}}, 0], 
         Min[
         242 (-1 + $CellContext`\[Gamma]^2) ((-2) $CellContext`c$$ (-1 + \
$CellContext`\[Gamma]) (1 + 
              5 (24 + 17 $CellContext`\[Gamma])) + (-1 + \
$CellContext`\[Gamma]) (2 + 
              5 (31 + 17 $CellContext`\[Gamma])) + $CellContext`c$$^2 (-1 + 
              5 (-24 + 17 $CellContext`\[Gamma]^2)))^(-1) (
           Rational[-1, 2] (-1 + $CellContext`c$$)^2 + 
           Rational[
             1, 242] (-1 + $CellContext`\[Gamma]^2)^(-1) ((-2) \
$CellContext`c$$ (-1 + $CellContext`\[Gamma]) (1 + 
               5 (24 + 
                 17 $CellContext`\[Gamma])) + (-1 + $CellContext`\[Gamma]) (2 + 
               5 (31 + 17 $CellContext`\[Gamma])) + $CellContext`c$$^2 (-1 + 
               5 (-24 + 17 $CellContext`\[Gamma]^2)))), 
          2 (-1 + $CellContext`c$$)^(-2) (
           Rational[-1, 2] (-1 + $CellContext`c$$)^2 + 
           Rational[
             1, 2] (-1 + $CellContext`c$$)^2 $CellContext`\[Gamma]^(-2)) \
$CellContext`\[Gamma]^2]}, {$CellContext`\[Gamma], 0, 1}, 
        PlotRange -> {-0.5, 1}], 
      "Specifications" :> {{{$CellContext`c$$, 0.3}, 0, 
         Rational[5, 11]}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{296., {111.93, 116.07}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.780887750825941*^9, 3.7808877971102657`*^9, 3.7808878446209908`*^9, 
   3.780887902273836*^9, {3.780888099985665*^9, 3.780888150675007*^9}, {
   3.780888188898285*^9, 3.7808882252109985`*^9}, {3.780888392744861*^9, 
   3.780888442658154*^9}, {3.7808885788333826`*^9, 3.780888606276317*^9}, {
   3.780888731431535*^9, 3.7808887545999107`*^9}, 3.780888918662858*^9, 
   3.780888952026252*^9, 3.7808890518810472`*^9, 3.7811879700131598`*^9, 
   3.782109344503267*^9, {3.7821095086775036`*^9, 3.7821095241240454`*^9}, 
   3.782110198939891*^9, {3.782110327152271*^9, 3.782110352782321*^9}, {
   3.7821365573880157`*^9, 3.782136567796362*^9}, 3.7821957418481636`*^9, 
   3.78283282614775*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.780889905835131*^9, 3.7808899141446385`*^9}, 
   3.7821347662363796`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Small", " ", "program", " ", "to", " ", "write", " ", "Ticks", " ", "in", 
    " ", "figures", " ", "as", " ", "%", " ", "automaticlaly"}], ",", " ", 
   RowBox[{"used", " ", "in", " ", "figure", " ", "2", " ", "below"}]}], 
  "*)"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.7821967864270678`*^9, 3.782196825247033*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"On", "[", "Assert", "]"}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"ClearAll", "[", "\"\<MyFormatters`*\>\"", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<MyFormatters`Private`*\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"BeginPackage", "[", "\"\<MyFormatters`\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FormatAsPercent", "::", "usage"}], "=", 
    RowBox[{
    "\"\<FormatAsPercent[fraction, digitsAfterDecimal_Integer] formats \
fraction \>\"", "<>", 
     "\"\<as a percentage with the specified number of digits after the \
decimal \>\"", "<>", "\"\<and with a trailing percent sign.\>\""}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PercentTicks", "::", "usage"}], "=", 
    RowBox[{
    "\"\<Suitable ticks function for graph axes that are fractions which \
should be \>\"", "<>", 
     "\"\<interpreted as percentages. PercentTicks[min_, max_] generates an \
appropriate \>\"", "<>", 
     "\"\<list of ticks, where each tick has the form { value, label \
}.\>\""}]}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FormatAsPercent", "[", 
     RowBox[{"fraction_", ",", 
      RowBox[{"digitsAfterDecimal_Integer:", " ", "0"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "s", "}"}], ",", 
      RowBox[{
       RowBox[{"s", "=", 
        RowBox[{"ToString", "@", 
         RowBox[{"NumberForm", "[", 
          RowBox[{
           RowBox[{"N", "[", 
            RowBox[{"100", "*", "fraction"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"digitsAfterDecimal", "+", "3"}], ",", 
             "digitsAfterDecimal"}], "}"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"s", "=", 
        RowBox[{"StringReplace", "[", 
         RowBox[{"s", ",", 
          RowBox[{
           RowBox[{"\"\<.\>\"", "~~", "EndOfString"}], "\[Rule]", 
           "\"\<\>\""}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"s", "<>", "\"\<%\>\""}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"Assert", "[", 
   RowBox[{
    RowBox[{"FormatAsPercent", "[", "0.344", "]"}], "\[Equal]", 
    "\"\<34%\>\""}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Assert", "[", 
   RowBox[{
    RowBox[{"FormatAsPercent", "[", 
     RowBox[{"0.344", ",", "0"}], "]"}], "\[Equal]", "\"\<34%\>\""}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Assert", "[", 
   RowBox[{
    RowBox[{"FormatAsPercent", "[", 
     RowBox[{"0.344", ",", "1"}], "]"}], "\[Equal]", "\"\<34.4%\>\""}], "]"}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"Assert", "[", 
   RowBox[{
    RowBox[{"FormatAsPercent", "[", 
     RowBox[{"0.344", ",", "2"}], "]"}], "\[Equal]", "\"\<34.40%\>\""}], 
   "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Assert", "[", 
    RowBox[{
     RowBox[{"FormatAsPercent", "[", 
      RowBox[{"1.50", ",", "2"}], "]"}], "\[Equal]", "\"\<150.00%\>\""}], 
    "]"}], ";"}], "\[IndentingNewLine]", "\n", 
  RowBox[{"(*", 
   RowBox[{"Display", " ", "tick", " ", "marks", " ", "as", " ", 
    RowBox[{"percentages", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearAll", "[", "PercentTicks", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PercentTicks", "[", 
     RowBox[{"min_", ",", "max_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"targetNumLabels", "=", "5"}], ",", "targetLabelInterval", 
        ",", "targetLabelExp", ",", "targetLabelMantessa", ",", 
        "labelMantessa", ",", "labelInterval", ",", "ticksPerLabel", ",", 
        "tickInterval", ",", "firstTickNum", ",", "lastTickNum", ",", 
        "digitsAfterDecimal"}], "}"}], ",", 
      RowBox[{
       RowBox[{"targetLabelInterval", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"max", "-", "min"}], ")"}], "/", "targetNumLabels"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"targetLabelExp", "=", 
        RowBox[{"Floor", "[", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "targetLabelInterval"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"digitsAfterDecimal", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"0", ",", 
          RowBox[{
           RowBox[{"-", "2"}], "-", "targetLabelExp"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"targetLabelMantessa", "=", 
        RowBox[{"targetLabelInterval", "/", 
         RowBox[{"10", "^", "targetLabelExp"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"labelMantessa", "=", 
        RowBox[{"Which", "[", 
         RowBox[{
          RowBox[{"targetLabelMantessa", "<", "1.5"}], ",", "1", ",", 
          RowBox[{"targetLabelMantessa", "<", "3.5"}], ",", "2", ",", 
          RowBox[{"targetLabelMantessa", "<", "7.5"}], ",", "5", ",", "True", 
          ",", "10"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"labelInterval", "=", 
        RowBox[{"labelMantessa", "*", 
         RowBox[{"10", "^", "targetLabelExp"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ticksPerLabel", "=", 
        RowBox[{"Switch", "[", 
         RowBox[{
         "labelMantessa", ",", "1", ",", "5", ",", "2", ",", "2", ",", "5", 
          ",", "5", ",", "10", ",", "5"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"tickInterval", "=", 
        RowBox[{"labelInterval", "/", "ticksPerLabel"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"firstTickNum", "=", 
        RowBox[{"Ceiling", "[", 
         RowBox[{"min", "/", "tickInterval"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"lastTickNum", "=", 
        RowBox[{"Floor", "[", 
         RowBox[{"max", "/", "tickInterval"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"tickNum", "*", "tickInterval"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{"tickNum", ",", "ticksPerLabel"}], "]"}], "\[Equal]", 
              "0"}], ",", 
             RowBox[{"FormatAsPercent", "[", 
              RowBox[{
               RowBox[{"tickNum", "*", "tickInterval"}], ",", 
               "digitsAfterDecimal"}], "]"}], ",", "\"\<\>\""}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"tickNum", ",", "firstTickNum", ",", "lastTickNum"}], 
          "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"End", "[", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], ";"}], "\n"}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.782196647111348*^9, 3.7821966471133823`*^9}, {
  3.7821967315726967`*^9, 3.7821967864270678`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Summarizing", " ", "the", " ", "effect", " ", "of", " ", "exclusivity", 
    " ", 
    RowBox[{"(", 
     RowBox[{"figure", " ", "2"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"param", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Mu]", "\[Rule]", "4"}], ",", " ", 
       RowBox[{"c", "\[Rule]", "0.38"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PROFIT1NE", "-", "PROFIT1Eequcorn"}], "/.", "param"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rootProfit", "=", 
     RowBox[{
      RowBox[{"Quiet", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"%", "\[Equal]", "0"}], ",", "\[Gamma]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vertlineroot", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"rootProfit", ",", 
          RowBox[{"-", "0.2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"rootProfit", ",", "1"}], "}"}]}], "}"}], "/.", "param"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"WelfNE", "-", " ", "PROFITBEequcorn"}], ")"}], "/", 
      "WelfNE"}], "/.", "param"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rootc", "=", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"c", "==", "clim"}], ",", "\[Gamma]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"rootc", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"rootc", ",", 
          RowBox[{"%%", "/.", 
           RowBox[{"\[Gamma]", "->", "rootc"}]}]}], "}"}]}], "}"}], "/.", 
      "param"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"WelfNE", "-", " ", "PROFITBEequcorn"}], ")"}], "/", "WelfNE"}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"WelfLimit", "-", " ", "PROFITBEequcorn"}], ")"}], "/", 
     "WelfLimit"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Dprofit", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"PROFIT1NE", "-", "PROFIT1Eequcorn"}], ")"}], "/", 
           "PROFIT1NE"}], ",", 
          RowBox[{"\[Gamma]", "<", "rootc"}]}], "}"}], ",", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"PROFIT1Limit", "-", "PROFIT1Eequcorn"}], ")"}], "/", 
           "PROFIT1Limit"}], ",", 
          RowBox[{"\[Gamma]", "\[GreaterEqual]", "rootc"}]}], "}"}]}], "}"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "%"}], ",", 
       RowBox[{"Min", "[", 
        RowBox[{"%%%", ",", "%%"}], "]"}]}], "}"}], "/.", "param"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Figure2", "=", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Quiet", "[", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "rootProfit", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.001", "]"}]}], "}"}]}], "}"}]}], 
         ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<\!\(\*
StyleBox[\"\[Gamma]\",
FontFamily->\"Courier New\",
FontSize->10,
FontWeight->\"Plain\"]\)\>\"", ",", "Null"}], "}"}]}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Ticks", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", "PercentTicks"}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.2"}], ",", "0.6"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"AxesStyle", "\[Rule]", 
          RowBox[{"Arrowheads", "[", 
           RowBox[{"{", 
            RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}]}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "rootProfit"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.001", "]"}], ",", "Dotted"}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.001", "]"}], ",", "Dotted"}], 
             "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.2"}], ",", "0.6"}], "}"}]}], "}"}]}]}], "]"}], 
       "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{"PROFIT1Limit", "-", "PROFIT1Eequcorn"}], ")"}]}], "/", 
           "PROFIT1Limit"}], "/.", "param"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", 
           RowBox[{"rootc", "/.", "param"}], ",", "1"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.001", "]"}], ",", "Dotted"}], 
             "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.2"}], ",", "0.6"}], "}"}]}], "}"}]}]}], "]"}], 
       "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Dotted", ",", 
         RowBox[{"Line", "[", "vertline", "]"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Dotted", ",", 
         RowBox[{"Line", "[", "vertlineroot", "]"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{"\"\<% Profit Gain\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.41", ",", "0.15"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<% Welfare Loss\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"0.3", ",", "0.42"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure2.pdf\>\"", ",", "Figure2"}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.781187997331068*^9, 3.781188094254505*^9}, {
   3.7811881444691505`*^9, 3.781188238092393*^9}, {3.7811882720984063`*^9, 
   3.7811883832208557`*^9}, {3.781188467033326*^9, 3.781188475401935*^9}, 
   3.781188592769244*^9, {3.781188637236003*^9, 3.7811886634539948`*^9}, {
   3.781188698297971*^9, 3.7811888401631565`*^9}, {3.78118894270511*^9, 
   3.7811889900520287`*^9}, {3.7811890656915655`*^9, 3.781189172042741*^9}, {
   3.7811892455530567`*^9, 3.7811893272210464`*^9}, {3.781190888741183*^9, 
   3.781190956460614*^9}, {3.7821337627060227`*^9, 3.7821338075424175`*^9}, {
   3.782133912602847*^9, 3.7821339496714897`*^9}, {3.782134046708336*^9, 
   3.782134077642744*^9}, {3.7821341445497494`*^9, 3.782134152485095*^9}, {
   3.7821341976431713`*^9, 3.7821342373315325`*^9}, {3.782134306787238*^9, 
   3.782134414867518*^9}, {3.782134453625888*^9, 3.7821345201043253`*^9}, {
   3.7821347790634384`*^9, 3.782134812657632*^9}, {3.782136638014983*^9, 
   3.7821366739873705`*^9}, {3.7821367270006957`*^9, 
   3.7821367960097885`*^9}, {3.7821368376153374`*^9, 3.782137059170046*^9}, 
   3.782137102164486*^9, {3.7821371470602827`*^9, 3.78213718414461*^9}, {
   3.7821372389195013`*^9, 3.7821373678275204`*^9}, {3.7821374001843915`*^9, 
   3.7821374420997057`*^9}, {3.7821375182703476`*^9, 3.782137658621951*^9}, {
   3.782137794196257*^9, 3.782137852461419*^9}, 3.782138006514823*^9, {
   3.7821380568067694`*^9, 3.782138139455063*^9}, {3.7821381721267395`*^9, 
   3.7821382397540226`*^9}, {3.7821382881873837`*^9, 3.782138428305127*^9}, {
   3.782138467756819*^9, 3.7821384679229956`*^9}, {3.7821385190657377`*^9, 
   3.782138519140542*^9}, {3.7821385647672987`*^9, 3.7821385648729734`*^9}, {
   3.782196490859143*^9, 3.782196491400694*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwV13k8VVsbB/Bjzk0pktAlkllUKpF+JRkKlalJrkyJpPEtpCJKoaJSJE1X
JaGMDXRFhJIpZ5/M5+x9BpQhSRr0rv7an+9nD2ut/azn2c/W9Al18RdnsVgS
YizWn2NpVuHarNUVkC9rYG1QclvxvWLmiK1jBeLerffW2r0Q5h1HrjFuFdjx
Xi5kONgahVOtPmoEVMDEwerUm2AXZB+oSkyJqwCCplLpwT5Is2I3nqyvgHVk
WOTa4P0Iaxrz8NpUCb9XCT/Tg6KxZNzCVzH4FaStXqhK7EqG6GOkbXd5NdZb
+qm7GtzBCcX+51MGazBeGSstt/chQq0KDB0U3kCq2X3024t8pEw2DxD41qNo
e1miz60S/CsnXChIbICiFx3qrVeK0c36/LkjjVDYZp3bFl2O1Tly89tVmuH7
7JhiZncFpNSkyiuNWiCz2zadK1cFum3b0k6P98i+fvrfdd6vYVb4ekw3pBVh
F8Qi4qNrYSq/Y/F4JBvJFRNtheffwL508+YfmRRef/NPsC+tR0u0/6v5zzh4
e93t35NFDQi/1qh0kf8Bn6S26LbRjahfvIuJnNyOjybRBmpdTbjYO/Nn6t8d
eGr9QXVvWTMODWqNC2w78fqpS4PbnRbUTbWBv2cXvg7dmjay+z0sT1QGzTjT
jUrF8neXl7Yie9kT2Xmbe3BSZtT82sdWjCA1msPtwU/XnwevnmTj0Qm7fGOm
B+ZLz3hOxLKx5+UoN1rQg/c3L7T5xLEhsnZZZdzfg4SemCu6iWx0rZnMiv7S
AzM9Y4mbKWzUrIuMNJThon33p+mOWWxkbNpx5JgRF7PzTkcn1LPhEKq/R/sw
F2Mn1xw4M52CRdsulksYF85msYdDFCkYrHmQfDyCi9s929U2KFH4S82wpO04
F94F5zBdhcKbaiNWUhwXKWuaeqPnUHBSN03+lcrFuu2LbOaaUNhYv6SYXcqF
zDbdMdd1FKzND9tL/seFWdbd+r+cKCy8U9K24CUXrZojpuXOFBTCzH8nVHGR
G3r2mo4LhRZtC/vV77gYNK4a5G6m4H7Uqi2vm4tzVkvlFAIobDG0mYgT56FH
t7Da9TgFx+Fj17MleXhUbe7ZcoLCypKny99J88h+Fg/fGE1Bb7VJhOJkHr7U
ijk6xFL4ulX123VFHrIMB8114ykknx0aztfmwW3icd61FApve9P5HbY85IS1
1/s8pFCeR8X8tueBtrmJ/BwKBYcUtLXW8ZCooqHDyqOQJhbns3M9DxM7ap2v
PKYQqHKge3gTD/+sNv+VX0xBysHhg/QuHpyuDKy8UU5hxf3Rt6bxPOxja/TZ
tlBgG/yoj0rkoV9CuyHiPYU9OayG5vM8SCSW1eW2UrieP7np4CUeLNzdxOU5
FH6WarY+uc5DoPL/tj3poPC8yalz5SMehPWxYzl8Ci5url1J+Tx03HfqqRRQ
6GNv7uYV8rA7TL6ZElJQ7fDlxjwl57dMqR/vpRAuCOPXVJD7xwom6QxQMP+R
+WlDKxnf+GSL+lcKjZHZA7coHp4kX6VnjJH1sR4Pfv7Ag4lZ7sCkbxSuSJUO
X+rioTPJ+XPfOHm/8s2jHCEPI0sjU1J+USjUnvjl/Z2Hs+tnn42X5MDxnsTv
xz95uFg9tdtbigNGX5Yl8ZuHDVfuzjGT5kDRZIZ4pgQNzi/NgPcyHOxfZiDd
K0fDbqCg58dfHCxw9pi6T4PGTtst1fxpHPz8/mlfmiaNNWIxpxOnc1B9L7a1
ci6Nc0X6IYsUOPAUK0qfqUdDntd+O0yRg1OFioalpjQ8pU/eHlTioEO1yU7G
moZRpLJdlCoH914HZpva0Lg1+veXv9TI+AdZ8lttyfU/XZ4mE8u8M2E/XEsj
p8DgTPpsDhZGnfNzcaWhqp6jl6rOQZxwXdR1PxqZruzixVocuF6imeoAGo7t
qXE3idVXRdgPBdJ4PWfQX3YuBwVpD+RXh9DQOzp7ZStxl5NshugQjZch8p7u
8zi4//2mmMIRGrs0hg48Ij5wz9zfMpyG4rrRC7I6HEwSCzQ6d4yctzSliogX
FVY/W3SaBm37MPKrLgcT3l7q28/QuM35em+VHgc1U75GnYqn0fKAbjxL7LVz
nsOH8zSGszzVlPU50JtR9lA8mYzvbGO5lXik3G2a0SUaa+fGelwjjlONoY5d
pbE0oypC2YCs77Wa5f00Gofk1WNciNUPFmQ0pdOoXBMVE09cUM/z175Fo5hW
ChojPhYeXut0h4aT33UnA0MO7HUVjA9n0rjX3j5vG3HXiVVfarNobNbReVxM
7NR356nmQ2KJe10Mcamr9PGwXBp9vYduTTPiwLAs0KbpEY327hPflhGn6byR
1S+g8WNfEc+bWPaCccOJIhofC1j/xBIfGT9/iVNCQ3bl+t33iD3eumnEldLI
xd3FDHHV4hKm+wWNslOxgxPEZjdUHix9SePBC6UlysYc3Jl0NPR8JY1AjVWT
jIkV9neZCatoTAoY9ltJHNW+8vuKGhoX38uv20g8ZHPnv5Q6GkMLYp/+Q+yV
KxU78JbGgdplecHE9cqBa20baBQGKRkeIl4eVSef0URj+67fhkeJH/QZtY62
0KDSux6dIFZxO5/mxKah7J36JJo4rmz4n0wOjSNJStZ/PKbjNu9XG43QZHPH
48QBF4r73DppzLITtoYRt47PevSwm8RzpnTXPmIb34hDkjwSz94jvjuJC952
WngyNCwN5/pvJdZaspJVKKDhWyvkriVOunG7anIvjcSFWRxzYpasVLxvP40G
Dwd7beLQ/Ts3PP9E8udelskU4q72WiXFIRqaytmJI+R9Oq0xag/6TEN31vwd
FHFp7rmbFV9oSGUoZD35E89Zw/6qY2Q+s839rvyJZ5Sr4f5xGhOxkUkH/sSz
v2io9gdZn/NLE6c/8XSbVaw5QePLTq6VNrGwLDwijMXAzOb5s29kv3jodq5s
EmdQ3mKYWUe86PutNydkGDy3s34RQHzbVzKJI8sgK/ZGnynxtPoAD1M5Bsv1
xU98I/t14IYht3sagyOlK7nHiR+sKfq6QpXBowUB20NJPqjkKZemzGZgtLbo
sfaf/JgVHjWgzkA3550/RfIroH+FXMZcBvyfT0RmxFpJNZq/jBgYb3lu3kjy
Nem7gdDNhMHlb3lBe4lZfokPHy5g4PVIYWQKcdcSl6WeSxhc8A4SX0XyP7Wj
3fE5GPwWt/p+itQLuVvmGpOsGXxecEmkSHzM//Kwmw0DpRDu8gxSb3wGnFMG
7Im/sxWyNTkwYlV0a7owSFm0wy1Tg4OMV+r5e9wYaP/OcPmbeNqZiJjnHgwu
VZXkJJN6Njp9sb77NgZiS+hDh/7m4MXc+/vj/BgwLMZYjdRDU5HkmtYABjkn
//scSern7Yc7lLV2MQh5YTG5S4WD04vVSp+HMAibtmthyiwONtidkxr8H4Nm
r1FzAam/vKCDV93PkPnLX9eQJPXczaQp6HY8A6eFNUmW8qSejxhbDSYyGBt5
arN3KgfZR4XcuGQGFm/0ApvkODh4bqth6TUGZ3alndwvy4F0/soXWrkk3qdW
T8wXJ/vjf9cvhD5isGFgxcdlYhz0WXz3Kc1nICl1S8aaxUFDZYGMRwmJ157c
lw4TFK626mw8U85gTp/vnKXfST80LscMNjMYjFPdHzdMoUH4Y5ZSK4O2L7RD
2BCFg+w+JwuKwbaimms7Bym8KKgpiWlnoGhbl7X8EwXXPTHxKgyDHRt6NtaI
KBylfyxcPcqQehXb59dNQbO5b2fgGAM701kioy4K1eUf0hPHGdgEGa3/TL7v
0zNKpDm/GFjNznQ/1Ebh7uYDbbul+agKs9fxJP1BQ31fVIoyH9F/h4iy68h8
Sj8UP1fhI0diaMKhlnzvs2v6e9T4WJfXH8J/TcEv7q674Rw+Wg7/2DCjisI3
ax/9cj0+dh3QmeLyHwWtJx8ae5fxcXNt+C7HAvK82zUaVp587Nl86ptZKlmf
U3TxBS8+enoX3/C4QkFm3NKJ8eZDcd/Xnwcvk35ofV54vD8f2hId1L0kCv/9
vNz6YQ8fKtdDefwzpJ/c5Bv/vyg+ZB4vF68Io3Bz8sTXvLt8dG00khryIP1K
cUmiRBYf9yS3P850o7DIZ5/2pmw+xH7wmE2kP6x+wmycyOPjmkZt+2PST/b7
v3no+JQPr5qGTksbCkvKr/r0vuEj8OgE+64p6ecOLnqnNczHkUnC1HppCvZr
j792HuHDfTWrE5IUXmm8KQ8f5ePrj1efcsUolNX5FDSP8xEcL3Xg5E82cuck
X40WF8A4b5FQ6jMbF94O+fAUBbCREqwN7WDDXTt37NYSAViOC07V5bLRPD4+
VG8ugFnVerolmw3nhjV94xYCpO29w/twnw3b8M6OjRDApcu1ov02G+aNchVi
9gIcupXaVUz6d9WjwQk7tgigdrnUuZb8t3S16GlqHhVgdoviFHcHNrwkQ3Wt
jwlw1qljppgtG51mRca+JwRYMTvgSZY1Gx2XV1lkxggw/Gl+2ZAlG+2btrrq
JwrwODHhrvt8Njjt8bELMgTY8nvZizAFMl96oHdVuQAH59+Q1+S0knwrzPeR
FGL0VNidtM2t6OupUs2XFsJ8/2FlKbdWTH3HjhaTFcKOYlSC17fC4/43l5tT
hLBePq9C37YVfM/lI50zhdh59EHgvkWtkKyuXLRFXwjtbi1nvSmtWHW1uXC9
sxA+dMU6nbL3KF0+VLz8qhAK9Ij/wNT3UHS7GOWXJkTlimfzz8u+R1DwEseE
dCGchJf/NZR8D+W0o9z2m0J4abpc2DTegv1jk+QisoS4pDRjcQTdAr18zR1P
nwnxLKJCdai4BZd0XScv6RRC2ajc9+TWFgQrFP9joiVChXT/ef7FZgQI5ibE
aovgrWcWz05ohvezpCftOiJY3n/LfRnbDA+fkOlxhiKo/U5POX24Gdb52pU9
ZiKkvXJkv9vaDFWXizrJdiL0LrQLWDunGXVJez992S3CK/0yO/puE/SmG0Y8
KxFB/cjxHInbjfCQN/yr96kIFsqd52TSGhEzxTBVuVQEZ46oXyq5ET2yhiUH
y0VIXZcg/zmqEVfEDUfm14owo2L9s9M7GiH9xSD4TpsITqJTMXc1GsGwDbYl
/BLh79bnb1eZNOBGuoGl1+pe1LXPbRjvf4tVJvvMai70YuvCXx+MTevwf9NB
K3U=
       "]], LineBox[CompressedData["
1:eJwV0Gs0lAkAh3FlzVHUGZuhpJM0JSIK5VL9Q+hCp0iFXDLrNBGWLdLS5rq5
bafbKC1N2dUWoomGyGAwbUkUasLkUpl5Z+Z9x4qmzWXbD8/5fX9WhMX4hM/V
0NDY/a3/VUgbHd3bZXjAFGe305+geSZjU36HDPN1rv0SNyVCvv5ue1mnDBHJ
rivWSEVw3dZjk9cjw+HG59bNAhGu5svMeiQyuDO2D1TEiODm8b1B+JgMAbmM
lz+8bENBMeufdAMCFS2Ps17daoVnMK20JZTAksCIGOVxIfYWBelQYQScEr7k
2AYJcUhSFbkknID/00/p6d5CsINZltHHCHSb5Eg91gmRHdxYbhhH4Ipfzxkv
VTPag09XRqQR6I1z8fKNb8a+ELKaXkKAvk7zhH52EwJDexsPywlMs/7I9i0U
QDtInVqtJJChE/bXlbMCVPkbuS9UEdAS0soVLAEW+gb/LfhEYFf1uVViCwEa
3T92mc4QUIudx+7UNoC5dnJYSpeDb9e/3LjvMRQTDK2TG+W4n1U288KyHsk5
fjvzUuSgGbHNDLVrYTkSu7gvTY5rq+luGaoa9Dv9NromU45VyqrXmuIabCba
Mlqy5eg5W+e44W4NpnY4NH+9JEe7hTrNx7sGP9OWOkeUyPH+ifcJDoePxJRB
S89ncthGVQS9sXuIkwmR9DkMBRR7Re0dhQ9gptJJyitSwPS2MN6+8h5GLwQG
8GyVEOyLWTT4tgShjfYDVIMSr7oWXXOs5GJZuvOgXpMSs9m5g7QCLt56uozY
CpXQW3+gZjiNC78XXrIEkRLcFAN160EudklYE7MvlLD6c0u3owYXdlMXFtCH
lJhUFHy4cbsI2g7kFhtNEkO06G3T839HRUVJ0Y+eJIr3rzxxxjQfdJsEzaad
JGDtupX/hYO4Sk+2nheJOf+OjC7o4sDuvnQ9by+JPWNWl/XPcvCIZ9E67k+i
87NbVMa7K2irviePP05iK9Fl87H4MiR1Dx2SL5AovGhubu16EbpP2l5m9ZHI
mHe0rPlWDrhx5gW8ARJ+1v5XS1g5sF+We6TvHYnU68MlfGYOguP2qSzfk3hT
e6oj9HY2Koz7F3QqSDALoxra72XBJ3Zsh8EMCf4xXd3Prb/iqpGx4JYJBdRf
UnzWT8fKqNjSunAKopKPCUNHTqNXv6ieyaZQOR6YV65IxLn6p8/zIigc1vOp
609IBKnDVIXEUEhtdMpknT+Fmru9dt8lUlCXOo3qCuOxR+rc4JVLwaG049WN
zT/hFIvWNcCjcNzCvryMZGOtju2wRzWF8Q3pzC3GbEh4IeMVfApyk7xHmbuO
wm1uLSO1noLJ14NVbnfCsfBmZMDqNgoekUnzAmLCUCzpHIkWUxjqXTKx3fkQ
DmROf3rdR4G92DHFqvwAtNdZ0FwkFO5kqA2TTPwQnZy2ZtEIBXtGd+QOHR84
GG+M4isoPBuqVumNeEIuDDtjQlFIClruajSwHUWR589njVEwd4iVDItdoFkn
vR84SYG3P9w7mL8JD8MYwhY1BQOtUHFI03qw57t2W3399tP3cVvZTTMs5UV/
4ExTmNCKt5jiGKLD//rk7CwFbWbzZrZq49b/APj1YwE=
       "]]}, 
     {GrayLevel[0], Thickness[0.001], LineBox[CompressedData["
1:eJwV13k4VdsfBnAUTUohY5GhEopMSfSSIUIyFA03ZSiaByVDhVRcqcjN0CRd
UYpCVFRCGon89j6O2dn7TDRJctHwW/46z+c5Z++z1/qutb7v1grY6xUsJSEh
oSEpITH2WXmrdNUt+2pkrNzz375PXIxUKw04uVVj36Is1ucjF5btRy6xPtXw
7dTttezjonSazUfNbdUIO+pnJynmouDgi+SLCdUIV3eac4HlIsuGbjxRXw0P
rfzsijYuIpqG1m32rcEWn5lFmm+4sBi2ClTYWQvby05aZnlciD4edeqqqkOa
h/3k9k1cxCj0VUz98gr1P6QvzVXlYq9NiYGL/Fso2bUs2dLSgotTLLcJAutx
YOperf4LLfhXVmgiSH4PObuz1o1rWzDot4CvM9CIEw2ZTIhiC+zvyi5qU/2A
THMPfyOaA2l16aoaw2ZIr/gr9PsVDpjWjUs61v0P3GOyiZKBHJiVvhyav5vC
/peKLp8WcmAst9V8+CgNj9pRbt0oDedKP7/RXA4yc14sSnpJozkuuHbR4xZ0
e5dIf8qgEXmpceYFPhcdLv/WvAuhUW8eyh6d0oYTl6S7VaxpXBAr/cyc3Q4P
gfKd14o0Dn3RHhY4daDe4ucg7yOFN9McELypE1Tu8aQNbygsi6nZoZjYBbyu
2i+fT6Fg6cNJc/26sYq1NK5PpDCAzLiWnm4c51C/6vdRuBezsngh2w3uiH1z
CPGe54M9cYJumDT/FI4jFq3wslvY143W61ffW+2l0Ok4RSLueze8XanMAjLu
V65HjxpM6MG6xjcGmTsoXPXdeuSYYQ90Ty6h/w2i4LJ3wR7d8B5Mdkzpj1tP
wao1VMIrogeuO/TaTIn1HW+nHo/qwYEflyT4fhQmqxuUtx7vQZ8g8M9K4rd1
hhIpCT1I+vV3w3RfCu4axqm/Mnvgvv6/mrs+FDzrLcroyh5oyORdmLmGwgrL
cOfxz8j1cTYaDR4UTG6Uty5+3oO1adrCU8TyEZZ/zrzowfbSBWbDqyk061o5
2zf0wHTJ9ifd7hTWRtu0FnX1YGJK9tUKVwrrDRx+J0jxsF/z3KLrKym49R+7
UjCeh9n3usQBxLblj6wbZHjw68pgdIn17I2iFKbwcHt7euotJwo/Nqj9d0WB
B5/WCT0PHCmk/v21v1iXh9RlA56t9hTeiS/z2514+GTip+JtS6GqiBP/x5kH
lzdHX88iLjkkr6vtykNS8oMKAShkSSYEbPfgwWNqaWAUcYjqwa5+Xx5+DG+o
zVtOQdrFhSsTykP5wb42WRsKy/MH3xkn8aCZ+++4SVYUaP3R+thkHm4sfKjB
WUrqfVfi/YdzPAwWPE/MJb5SPKUpLI2HSmXjNfbEPyu1qIdXyHgbm67HWVKo
aHLvsL3HQ8tp7YPTl1Dw8vHuTCkm/1f+8xJjQaGX9uvilfIQJV2pVE6s1h7Y
E/+Ih+txIVL+xJGCCP6rah7kLAYeFJtTsBzN/bSG4iH7E3sr1IxC49GCz9c5
PNhmy0msIA6RuP/lG5eHdwPat9WI06Ur+9M6ediI0yPvTMn8yn0YbBHycC+E
f86cuFT3968tIzw8tl9yW8mE1Ctv3J/7P3mYkJq4+vtiCuyCSRLj/vDABHY4
fyBWMFKUyh3HoLFR3vYc8YGl+jJiWQZfwiOtpxIvXr1u2n5NBiNKD5JUjcl8
jHzan6XFwLLU4sxvIwp1eSepGh0G80NOcBniTZIPLivpMZBz+LahiPhUqYJB
pTGDXbK+P12I29WaVk5YwaA/Sqo5eRGFvJchBcYODCTv/Hc3nPhAmITcBicG
8t9SOVuJJzQY0XdWMVA6bai8hNgk9myQlzeDgiBHV/5CCglC19grQQzShC3X
1xB7pzFs3TYGrqr+h0CsYRfl/DWEgZnWocxFxCVZt+XsdzOodWlonkrc6T7p
qugQA/7ufMVGQwr5I9mS8kcYHF8yZ99z4oN5lsHLIhkIJsydXUI8UTLE8Owx
Mp6mtbvSiU1L6x6bnmZwbTyXF0j8e8tmjb8SGWgcsmnwJX419UfsqSQGOXMX
y7oRb94+14V7jkGhyDnGnFhP8ckdqVQGQ8cLy/SJB6p8phumMWC3zLOdQ5yg
Fs85lsHA+XOjmyyx90v1ZflZDA7UOTZKEWuElVxtuszgNTzzhg3I+Op5wbrX
GQSvvb9GRHwsMvK1+w0GW+ucdbqJnefLLwzPZTAj7qdLC3FnjN3317cYCHcj
7TWxe++NR1p3GFRseKhXTVzpLXM8opBBhFH2nApigychDk33GHww0I4uJc6a
93bSghIG/ndDlxUSTzq/8H3MAwa9Rjmb84mPDJ9Layln4OY+xM8hXvfORzOh
ksF935tamcQvzMvZrqcMrKb70WnEZtdUby95zqBzhPpynvjGxOi952rI+nRx
25NMLH+g00z4goHOaqHn38SxbbYjy18xuB3enHWa+KvDjWcX3zBwWGvjcpJ4
c6H0yc/vGDBpnn+dIK5XDlnl9J78fpwNJ5bYOvaN3NUmBp+TDctjiG/3GlKD
zQxOwf3XcWJVn3NZ7jSDcvt3t8ac8KTfP7eFQRCfrhzz0Dyfub9aGcw6l2Ux
dv2282W9Ph0MvN86KI/dnxpWuXeni8Eqh3H+ccQOgVGHxvNIfWrHTYsfq9e7
DqtNLIOZFmG6p4i1LWwlSgWkPv/G5SQQp1zLeTFFTOZ36V8JScQSk6STAvsY
JNuZ0GeJ9x7YvqbiE4NcPeMzqWP1bHs9U+Erg4Cok7cvjtXT0bBtxzcGa4Rb
Fl8aq2fh2ezq7wyarPrnZI/VU6U/WG2IgW9wcETuWD1jvQ0ODDPYEf7RqmCs
nn0Pvr4eZfAi50Hw/bF6+qiUaf1mcMLq63A5sfBJZFSEBAujkrdDT8fqO7/D
tkmKBZsT7l9HbDpy/W3MBBYOoj+7aOKcwPEpLZNY/JG3Vuginl6/bZ2xLAsF
/4m6Y+v18zWDnq7pLPqi5E+NjtXD8cGP5WosTEysPeeT9a5apFx5cRYLZWal
p+nY/lCJjP2sweJ9eOgTEG/rWy57VYeFf01J63pi7ZRXWr8MWXxr+7DoAnHK
iL7Qx4jFmqKRtBxiiaDkO3cWsyj9VBdSTNxp4bVkkwWLTxeVNjQTZ7a3uVWA
BX9EM1SNnBey1y01J65gUVDIiAyJjwX/0+/jwKLRsr157LwJ+Lz64mdnFreM
jT5uIzaUqO7S8mJRy68weEx8tVajeI8P+f5C/ORG4umJUfEV61iob5VdJyAe
nGG+YO1GFiOqWmaK5Lx7qpN/ICGIBXdix4xDxMai8Y7UNhZxz9U3nSXOubNV
WTuU3O/RHcV84tPm6pUVu1lE5KY0tROvWXlW+sthFveUpWNcyfnL2xGWsTaR
haP2cLsNOc99jJp25CSx0N+QrruZuG5goc2XZBYxKa87jhEXRAt7ElJZJKY/
y31OHHZ2g0HlJRaPc5tS3Eh/kCm2fapdyMJ4/pTJR0i/OXL4yvm991hkD9vF
XyPutRoJqCxmYf0l7OBL4vc1JRPWlbNY9bzwvgrpVxnUPM/EKhaCv9JLqoj1
h2XZLx9YZH77/Hse6Y/vhaMqMykWJ15KPvQiDqN73a04LA6b9XOPET8teVUe
38ai9ZLO+hZi7z3xSaosC8pw2qrzpN9GM6Mm9oMswmfpzFEk/VvrQ+/2kCEW
R9/GHHUirqviXk4eZiGv99wpgnjG1XKZll8sSibfm91NfNPvYOsuGT5S2Ie8
YpIH3tf3xl5U5iOgMHpw1zLyPJXcsgpVPnRG4/VuEqsVvOrrVuejwSXjTRdx
UMLNtQZz+KjpKNzkY03hvxUBC6r0+Ajf6fZ0Bckn2g+5jeKlfGxVcMo1I3km
LOeVps0mPtJUGiL2kHz01D2u7PxmPsq3jB9fSTxheJk7u4WPttQ6lckOZL96
FEUmBZPn05Fj8oif/fyH4u7hY7d9tlQvyVuTfQOTDsfykbhy6G6CM4XsKb9/
FN3ko+jSlJrFJP/1lpUnj7vFxzTdkkUpxKYB+3V9C/iY2uy3qJ+47iHr+buI
j7jq9t5ikh/7gt/ecXvEh3Lq6a02nhQsqjICxG/5yC+zPbOH5NF3YaYN2v18
BF0PV3fYSPrNquMvVw/wcevaCaki4lrNt1WRg3xoTE8/qLaJwpM3ASUfhvmQ
Xfbt+zfiwjmpGXFSArQ6+Ubf3kzh/LuvATwFAeBytMM0gORT3cKh6xYCOD1p
6L8fSuHD8PDXeksBZp3Ynr+I5O/V7x17h60ECMgN+FZA7BTZ0e4JAeLvPbbL
30nyVqNstaSzAEs1s+g8kt/Vonee2bpegOpnOpo1+8n+b9bT0ooWwC2gKWRX
JOkf4/fOX3FMgLKyE17DxB1mDxYGxgjwi37afCqK5Jl/7Kxy4wUI2qt09UY0
hTbfDd4LkgXIyHPZyB6j0NKWdHLxVQHenUmsijtBnpf5LLarEiDlitvf5skk
Pyqafw2oFsB1jetEmrjJIerHiVoBchMT9MLPkjyYO2Fc3SsB4jzme1acI+tv
+5xZq5oEKNFn3FxTyXz3ea724glwt69g+d/pY/u3tDhgvBC7LDKvnMoh9e1+
oVYsI4TmV6S43qAwrYGOk5wkhOUCoeeMf8l5nf+fV/ZUIcpUzK2v5VLgb7Ie
6FASQuURt7qWvD+Nr6sxXb9ASM6dmZOXFFGwy/hQ6rFaiDW3leZXVpJ+Yv21
zDpDCK+o2h3bW0me9LkQG5QlxPs95wRebRR27LRwO3NZiH+6Gk3RTkE5K7qn
LVsI9fHPHNQ6Sd4bmigbdUtI3sfSV7f2kDxUrLX10WMh1jaaHI4TU0ib7z3F
okOIbSs06g8PU9gpX+ZvpC1CxFzfwWmzaGwT6Jw5qSvC59WzS11n09jyOOVh
2zwRRDufXUjUoLEuYPeMBAMR9JL+93CiFo0Vxbo13WYiuNqp31ecR0PN68K8
1JUiROtnKAQZ03iTsu/T910iaKT+zhA40tCbYRD1uFyEqUqjQXfDyP3kDCaL
H4nwfJWGtOZhGvFTDTKVK0Uou+b/v5RwGt2TDMrDqkTorcodFxVJI13KYGDR
axGcl3s82RhDQ+a7/s4brSIYJIVu8T1Dg6X1N575JYL5m4VFNrk05Cn93sd/
RAiOvtxL36Rh26wfIZYUw2nH3AP782lcfq+f7iQjBic6KPR2AQ3vV/rNEnJi
UKOsgmExjepH+q6H5oix2a3IYu8zGtcu6y/bbC/GlakbW0ZbaTQO6nJiHcW4
5SuXV95OQ8pD82DuSjHatK/9L6yTRpCkYsFHVzGGvI6sGegh49/2Sy3KRwy5
ff4iCTGNYqPGkfRgMaavmnHaf4gGk/DmYsV2MWTgV714mIYir9akK1SMs+vT
d0uT9//wtEc75u0RI+LrLpX7v2lYD+e0lh4WY0CnqlNVhoPdXlcOtxwR42Pe
5EdDEzi4WpAu/zNSjORRF1nOJA4kN59ZZX9cDNrcWjtrKgd11YceN50WY3LO
SkOTmRwMqe9bN5goxu62hM/qyhzoHdrxTeWMGH/bTTKdoMrBhoags9ZnxVhd
NTQyoMZB0nx//S3nxVBPjF/Jm8XBCqP9Zq+IO0ZqNtnO5uD/owUAbQ==
       "]], LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA1M+41EKV6T9rXm25HhjXPx8zTv7K
luk/AAEcfTgT1z9QjEia7pjpP12zg5pgDNc/geVCNhKb6T/i534liAXXP7I+
PdI1nek/hp4NHq/+1j8U8TEKfaHpPzmS5Vf78NY/2VUbeguq6T9Sk3/ujNXW
PwqvFRYvrOk/8tgW5q/O1j88CBCyUq7pP7GgQUvSx9Y/nroE6pmy6T+htlFe
FbrWP2If7lkou+k/Lvxbp5Se1j/s6MA5RczpP/ntGMV3Z9Y/wv6FN5fO6T/B
YBL3+1/WP5cUSzXp0Ok/tJ7EfH9Y1j9CQNUwjdXpPyB8U4OESdY/mJfpJ9Xe
6T8IvRp9hivWP0NGEhZl8ek/JFdPI2rv1T+ao2PyhBbqP4XsUDqwdtU/R14G
q8Rg6j/vm7WSN4PUP1tg1sBc6+o/1fqMVoy10j99i1VJjYHrPwEoYS2qttA/
dXdrEAEV7D9eY3lnwWzNPyfwC3yNnuw/OVtCPdudyT/nkVtasjPtP8zVX9/k
Z8U/YMA13e++7T/k+pbe52XBP6+vpp5wR+4/UMrYyWrLuj8MyMbSidvuPyxv
JWDb87E/I21xq7tl7z9kE9ZtDxqjP9YUnrwkaO8/5nWYOV7Ooj+IvMrNjWrv
PxkO9zWngqI/7gsk8F9v7z/+3ojAJ+uhP7iq1jQEee8/PAT/HOO7oD9O6Du+
TIzvPy22auaFuJw/eGMG0d2y7z/ZdpQpTjGTPysLM+JGte8//KEm6HeYkj/e
sl/zr7fvP2Y48QeW/5E/QwK5FYK87z+upi9rr82QPw6ha1omxu8/OBOjgK3S
jD+j3tDjbtnvP7nRUkrvPIM/Vob99Nfb7z8ejoTuzgmCPwguKgZB3u8/TiEn
VZfWgD9ufYMoE+PvP8uTfdPE33w/OBw2bbfs7z/gUXBgw0JzP+vDYn4g7+8/
/S/hzw7bcD+ea4+PifHvP0R4Z4hX5mw/A7vosVv27z8Dtft2tEVjP7ZiFcPE
+O8/a7HV+a7pXD9oCkLULfvvP6ezOhk7R1M/G7Ju5Zb97z+/xUyYGkhDP85Z
m/b//+8/5tbLYEzJYj6B26IK
       "]]}, {}}, {{}, {}, {}, {}}}, {{}, {}, 
    {GrayLevel[0], Thickness[0.001], Dashing[{0, Small}], 
     LineBox[CompressedData["
1:eJwVxX040wkcAHAnk8j7pUXpVJIlL704DvtSLOpUQk5SmdJqqZ6QktKEqAct
bl5ScZMQMW/DbF/77U5SR6aiEzXKa2Gzpp5zr398no8F/fTeo+pqamq+//l/
8q5oJneBNdVlcZrj5dMSZJbztixXaILuFZL5fKQEE3tO2E7ITWDpsTMacScl
qMd4TOmWr4UPPYadMcclGFDzufRXuSPkaCcHRIZLMLZ3MUMkpwFd3dX2QJAE
tU7kbhfI9wF74dElziBBv00H+U3yCKiMOdUwrSdBqx8z/cRjsWAxl0WyKyEw
tCeW9IJgAbuDKfP1JDBMfGjQPPoayLP+Inu/F+PlJ6fGPhWmg5X0uJ5uvBil
CnPtlTVsMPGOCGowFaNCN98prTsbpDEjQ1a8Vjy9yMHy0FAOuDasHo/2aUW5
XukvMaJ8+LJz90xgN2JCUY3Trr47MG1Apfr+I8JF9zqrag8WgrZhYraZiwgT
B/xWqZ4UwWShoLM8ToisIfOiZQFcaNPvY7eWteDVjyGMAUkxjI1Zz9aPCFBH
OOSSuLcEcg+HW9gaC1B8KXbqzesHYEAvd2Bsa8a4bfHjvbQymIi7AddZTdjU
1TFTKy2HzPIWxvqqRvzzcJq7vWcFGAbBgqYJPkoa2QXpLypB6DbRSyzhY5Na
aW9haBUcFFgY/ezZgK/X5mygRFSD/8W6cyGsesy1T4hR2vAgbW/zjduVddjn
ek+WMcIDG8dF0z2jtWjvQXNLKqiBV8mTagOWtfh0ndHKibBaMB1QqkL9a3DU
yMTyO9M6IFTumoMZPKS9o/LaZHVgW029/aKpGlvuT9m0368HUrBnjWt3FdZF
vnqWd6ABEhSp1P4dj3CaPKzoX8WHRyJV+1FuBT5ss3Kb6ueD5r6CY+rkh3j5
5Oy5EHYjVPRupvtnl2H252FH531N4JU/8sfN6Qdow1psNqrbDB/sfL0nI0pw
4UxwMullM5isfdy/UViM4WFvjZUZAhg0/qfwjh0XX3VMst28WiAjmKfZXlaE
6UtXcOa0hcAP2fBlSL0Qf4tIEbEkQojkKVMCZgrQPe/byPgbIjCVzPp15Oah
VGKtI92N4MzRufp8DwejzgtGLi5oBcb9W7fAIwvvXlFqP45oBRl37ALtbSZq
X/fxiJO0QmYbmaaoSMNEffr0fnMxcDO1wt7nXcXbmunvZq+I4WWgtIQgxeHn
v3uGlW/EcITh4cWIYmL+pta6zEEx1F+TsXNJTKQyKpIp78QQ7p4w1Z5zAlO7
k6wOD4shqWS017rlOJoWb2E+HReDzp7XJz9qMJDqk6MoUolBNfywPJpzBFOy
9n+z24AAB53N3NVRIUhpp0nHDQm4dS3+VGrOfuya38hNMiZgWSkp9JMgGMkR
Ol7NJgScmdtazNf4CcudWlItVxDw1mXHoC8nALsGVhjMWxMw57jOTj1qJ0Yb
acs46wmwv3iB9lzgg+TtKp7DBgKojzgP7mp4I7260/+YPQH0PVrerhxPVCYm
5EgdCag8b66vOuuCuXwmI9KJgO9v6o1wNJzQ7WOQs9YPBBTqv/d34mzGlED7
fjc3Ar5WPZv8enY9Uq4vr+ijEjDP+j3QnbMGu0Ral6LcCRB2dcn0o8wwelbp
q7eVALMdwrmtUTpIXiczL9tGAGWNq1mjkCL6F233er0=
      "]]}, 
    {GrayLevel[0], Thickness[0.001], Dashing[{0, Small}], 
     LineBox[CompressedData["
1:eJwVzns0VAkcB/DZbSmDXiTVoHVWHqnYyk7Cd0LTayvTc0OKSiKrRZTyGE1K
FmtVJDsIKUl5j0cyV551WJPS3Ht7oCMkzIO2tq29/fE73/M55/s95/e9T9C2
Q9+yWKzNzH1Nwy2hAblTLJ0st7mEnImhEVBYspKj1ISJOWW/iXHsY/+lwwoD
+IxbTNFjPN2vxapLsQi058Cla9E0dpRO3HigsEP6ucFGaRSN8B4dv3oFHyFh
Ws6sSBrT/NPX1Sp2wXWLpDnyJA3Bcq+qaoUv/u4WKyKCaZj/nCyQDoajSF9i
IDhAY+/jcI1uQgiPljrRip00vKX7XhiHnoM6hzbwX0cjqu3XwXfZiagte8AW
cmnIlMZsk9IUvNbhJF2zoqHUzeDGd13E1RFeacECGkFatmb7+tIg+TPw0Rcd
GorpN64dr8+Aw/vO4n1fKETnlHK3PPsLw6z2j/njFLSyOu6UeWVj3DYuT9lH
Ifa5wHSyLQclzYKg5CcUhH3GOfN25CJtrrX7nBYKZ0Y8/J435iH0dLpSXE1B
+17f6tht17HR7fCA3i0K0sjwUVpeAN2kjA55JoUIl9NDPfybCMvUvZ6dTKG6
s328TFYInaqF4p1CCv/uj+fZuBZhT6rEhB1KoVGSkpnYfRvfdSz7UnyI6bNu
9GTvvQPbwa663N0U5IvSllj53kXrbQ7/0kYK6TbRx9XWJXC8Ej9x0oHCM4es
3qSBEhQcWaXtvoyCzRq+oyizFFGH7FecM6Xw0GK2ybB3GVDmZV+oT+HNbAOz
hfPLYZaw6XPTVAr8V04lzb3lKD/lQMk/kKjLH7Vuza+ASzidu3qERHng00dX
PCvhsXo0OPUliTHDfiVlWoU/KmtNB7pI3Go2dxylqkD1c8KXNJGIOqoK80iR
oEZ+UHVfQuLiRL/dql3VyH0imup2i4S1UGfBG90aqH5YYSQTk5g6vuesxpMa
ZAa0a+5IIXHA+6WeOqkWs4wLk5tFJJ62v01xXFuHg6Qz98wJEolzjS6/Z98D
N2v/b84BJJp84+qFjfcgruDkj3mR4F3RDzydUI9O1X83cwQkZI2W2rKt91Gp
zy0Wu5IIOVE7cGpKA2LqxP/EcUmIY9TsFt8G8Cq7+8MWk2Bf2LAmorEBcyaW
VriZkIid4TPmbizF26bWpmA9Elc1E1+pYqQQ8Dx/ytIkMfH5cb+almJuGu9d
6Uc5MpY3lCe/kMJAo7MtkrGTX9FZq1dSBCc7FaxnfL5LZL6/Xwr+p4aDLz7I
MT9vZcDDISniN24f1mLstCFNmTMpxUfPYhPv93LEpbp/s3UmgYool+Uz1XJY
tfJlQ7MICF9PLqZUcnR++jFXpEfAJSrB7DpjQ1/ttTUGBArcflngwLiQW3fe
zIiAUVzMLD8l039uNPOTJYFKWtuiYVyO0Nns3suLCRylZUsTGBuumyyxXULA
hnPKbhdjn7sd2w/bEFB7Ba0fGZNDHRudJrMj0KP5JsyQcXpVgF8gl9lzJKL+
UTkcR3avmmZPwOGEf2ox47idNpSjI4FjGiFlroytLnCKnjkROMJtezCDcWf9
tMgQHoG8clYP+Y75R6XePN2ZwFDEvOF8xoYWvcY3XQiwftf7fIzx/5zwd3U=

      "]]}}, {{}, {}, 
    {GrayLevel[0], Thickness[0.003], LineBox[CompressedData["
1:eJwVzHs0FXYAB3B5pofMwTQ0LkleeTWxji8lTWjeNZRN665JdN3jlSSUUcqN
PJbnRYSRXHlktyndijyaZN5Lot3nj1aEuLv743u+53O+53x1g8O9jktLSUm5
S/J/D9o+TZHL4mLZU5Et/qILcUPUuhSJK7/5mWKr3gWdaLlBhetcPLa4fZj+
WRdCGvdsXZfNxTFLOxueQhdWzNgdSrlcyGifap583wl9/QYpjXwupptphQu9
naArFZwxKuPC+/epZ+zkTihPhYd9y+JCPBNuV02eYv+H3CKPQS7cTT8MUlqf
YIvhmgXxPBcBG8OeMMseQ5GrZrr+cx5afjLcXF7EwaxKTU2PLQ/Zjs7RbhmP
EH0k0cven4dKz4iUawUdWFYecqTG8xAa/Afvx5KHyPIaUeIV82CiluTiwnqA
Z43aslrtkr/d7jYyf7dDnDDpKDfFQ2ZTr5uqdDtenJypLJDh41PxtIVdzH20
TefwM/T4oNjoxgmk2Sh5+iTazpmPAWs6hxPfhq3dtiZZVD6MXJ+LBTr3ULHL
ZHtZGh9XXdMdbt1twddWXTKbfuOjXtvB5VRQM04frJLf3s2HOWt2nmHSBGb/
Wq8lER91+H4uX9CIiOgqTuwmAU5b860yelhwuNiVWG8pQOT+Jo3S0gZQdHM1
9/oK8O/QLX1u6h2Uj5ePJ0cK0Cyr22SaXg+KjNU/cXkC2NePnIhRvA0HF2lN
SqsA7V1bV0vNa0HXjjfWHxbA0EPLxDuiBqX+MRfGlwUIvQ+ztpIq0Foa5fZp
CaHrNcxWEldidwKt7xiEOH9CNW+tWwU0B4ajJn4Qgsxt1zBuKMcNl2RnhSQh
FDz5vaw9ZVA3rD36tlwIJb1NdT0dTFhu0yiO5AjhbWCjejG0BMGNZuygaSHc
PLaJCz2LcLWao7dmrQiLxyYZf9Xlw/9BYYOHoQhao8H+dK9foec4n3bIVYRe
zbS73eM5SJ/MSNsQKsIl2an0t9XXoaj8kqqdLoLt0gs/kpeJpMob6dN1IlBj
mVZ9NAbyg5gjAX0iyAfdO7Bx3RXcOW9IS3sn2dsbInLXp2F0R8C0ihrB6bwo
11NuF3FT3Jt4YCeB1mte9qH3iTi5q4Nqe5jgvAbLR7R4Fn9e+0gfjCEoUjhO
+eVZFFxjh4/25RHQJvj35KRoeNhpl5nQRnDT8zu5MCkqhu3GheOjBCNvxgQ+
VX6QXdSKChsj8GT0B7i6+cG8OXB1VWKr7pZQX+KLFKsxJZ0JgtrCyyHlO31h
bTK6I/gVgeW+/mumHd5gaA/TZt4Q5Lw6E8qb9ICz1MsPIqHkP1ClainAGRH3
Vc8liAjoFnXZjyv2ofCsj7wyITjnJ2/cOueE9x9fqFvMEjzqYe9WSd2L0rl+
G/o7Ao6NdVRWkwNWXj+PXZgnYG2IMyjY+RUMmcrSqQsExU7d+bLPreET5HFJ
4yNByOyrztYQK1SP9t2wXSQYNg4yWsc0x+GB3ra4ZQJmcuVMMsUAFzKVnDZ8
IqivbTiwJVAPtz0OdhdIXBPwMNUzRwfyPT1j7BWC2fGBq7Kb1WF5eePxg6sE
RoEMJzFDGUdc3IUTEp8wGDTzU5VHqsKVyHAxgcrSTMqXKvP2jZzuFbHE7oPt
FUPxavb/AaFeaFg=
      "]]}}, 
   {Dashing[{0, Small}], 
    LineBox[{{0.7991969670765553, 0}, {0.7991969670765553, 
      0.36128420781563525`}}]}, 
   {Dashing[{0, Small}], 
    LineBox[{{0.14268984139574278`, -0.2}, {0.14268984139574278`, 1}}]}, {
    InsetBox["\<\"% Profit Gain\"\>", {0.41, 0.15}], 
    InsetBox["\<\"% Welfare Loss\"\>", {0.3, 0.42}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*\\nStyleBox[\\\"\[Gamma]\\\",\\nFontFamily->\\\"Courier New\\\
\",\\nFontSize->10,\\nFontWeight->\\\"Plain\\\"]\\)\"", TraditionalForm], ""},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0., 0.02}],
  Method->{},
  PlotRange->{{0, 1.1}, {-0.2, 0.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->FrontEndValueCache[{{{0., 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1", TraditionalForm]}}, MyFormatters`PercentTicks}, {{{0., 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1", TraditionalForm]}}, {{-0.2, 
       FormBox["\"-20%\"", TraditionalForm]}, {-0.1, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"0%\"", TraditionalForm]}, {0.1, 
       FormBox["\"\"", TraditionalForm]}, {0.2, 
       FormBox["\"20%\"", TraditionalForm]}, {0.3, 
       FormBox["\"\"", TraditionalForm]}, {0.4, 
       FormBox["\"40%\"", TraditionalForm]}, {0.5, 
       FormBox["\"\"", TraditionalForm]}, {0.6, 
       FormBox["\"60%\"", TraditionalForm]}}}]]], "Output",
 CellChangeTimes->{
  3.7821370701058793`*^9, {3.7821371485851026`*^9, 3.782137160296985*^9}, 
   3.7821371971994457`*^9, {3.7821372402564297`*^9, 3.782137308207761*^9}, {
   3.782137418232685*^9, 3.7821374427568407`*^9}, {3.7821375272070446`*^9, 
   3.782137537450906*^9}, {3.78213758846804*^9, 3.782137627074894*^9}, 
   3.7821376597410765`*^9, {3.7821377989624205`*^9, 3.7821378468849373`*^9}, 
   3.78213800727993*^9, {3.7821380669138937`*^9, 3.782138139961149*^9}, 
   3.782138207146193*^9, 3.7821382408423424`*^9, {3.782138289801027*^9, 
   3.7821383327094736`*^9}, {3.782138379635358*^9, 3.782138437432438*^9}, 
   3.7821384684813766`*^9, 3.7821385201809735`*^9, 3.782138565482663*^9, 
   3.782195741998791*^9, 3.7821964941443624`*^9, 3.782196746024067*^9, 
   3.782832826526125*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 583},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 440, 8, 294, "Title"],
Cell[1023, 32, 415, 7, 74, "Subtitle"],
Cell[1441, 41, 300, 4, 32, "Author"],
Cell[CellGroupData[{
Cell[1766, 49, 191, 2, 117, "Section"],
Cell[1960, 53, 2758, 67, 278, "Input"],
Cell[CellGroupData[{
Cell[4743, 124, 1186, 29, 104, "Input"],
Cell[5932, 155, 493, 8, 44, "Output"],
Cell[6428, 165, 957, 24, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7422, 194, 1328, 35, 133, "Input"],
Cell[8753, 231, 714, 15, 71, "Output"],
Cell[9470, 248, 714, 15, 71, "Output"],
Cell[10187, 265, 542, 9, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10766, 279, 1627, 47, 249, "Input"],
Cell[12396, 328, 1223, 31, 80, "Output"],
Cell[13622, 361, 807, 18, 67, "Output"],
Cell[14432, 381, 845, 18, 71, "Output"],
Cell[15280, 401, 621, 10, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15938, 416, 789, 17, 75, "Input"],
Cell[16730, 435, 564, 12, 67, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17343, 453, 261, 3, 117, "Section"],
Cell[CellGroupData[{
Cell[17629, 460, 1154, 26, 104, "Input"],
Cell[18786, 488, 1032, 25, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19855, 518, 3501, 83, 394, "Input"],
Cell[23359, 603, 1045, 24, 70, "Output"],
Cell[24407, 629, 2332, 69, 95, "Output"],
Cell[26742, 700, 2431, 70, 113, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29210, 775, 680, 15, 75, "Input"],
Cell[29893, 792, 891, 13, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30821, 810, 658, 13, 75, "Input"],
Cell[31482, 825, 1040, 28, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32559, 858, 835, 17, 75, "Input"],
Cell[33397, 877, 883, 13, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34317, 895, 1333, 25, 104, "Input"],
Cell[35653, 922, 637, 11, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36327, 938, 1246, 30, 162, "Input"],
Cell[37576, 970, 1007, 28, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38620, 1003, 1135, 23, 75, "Input"],
Cell[39758, 1028, 577, 10, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40372, 1043, 1070, 27, 104, "Input"],
Cell[41445, 1072, 837, 22, 78, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42319, 1099, 1399, 34, 133, "Input"],
Cell[43721, 1135, 1026, 19, 67, "Output"],
Cell[44750, 1156, 1640, 39, 78, "Output"],
Cell[46393, 1197, 1058, 20, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47488, 1222, 2505, 60, 307, "Input"],
Cell[49996, 1284, 922, 21, 71, "Output"],
Cell[50921, 1307, 611, 10, 65, "Output"],
Cell[51535, 1319, 991, 24, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52563, 1348, 1035, 27, 133, "Input"],
Cell[53601, 1377, 893, 23, 74, "Output"],
Cell[54497, 1402, 597, 13, 67, "Output"],
Cell[55097, 1417, 687, 16, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55821, 1438, 1300, 29, 133, "Input"],
Cell[57124, 1469, 657, 15, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57818, 1489, 1703, 47, 133, "Input"],
Cell[59524, 1538, 493, 8, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60054, 1551, 1803, 43, 133, "Input"],
Cell[61860, 1596, 2807, 52, 517, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[64716, 1654, 570, 9, 117, "Section"],
Cell[CellGroupData[{
Cell[65311, 1667, 2683, 55, 404, "Input"],
Cell[67997, 1724, 842, 22, 74, "Output"],
Cell[68842, 1748, 544, 12, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69423, 1765, 1588, 38, 258, "Input"],
Cell[71014, 1805, 1046, 18, 44, "Output"],
Cell[72063, 1825, 1073, 19, 67, "Output"]
}, Open  ]],
Cell[73151, 1847, 347, 9, 75, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73535, 1861, 685, 11, 117, "Section"],
Cell[CellGroupData[{
Cell[74245, 1876, 5705, 131, 713, "Input"],
Cell[79953, 2009, 6462, 113, 517, "Output"]
}, Open  ]],
Cell[86430, 2125, 219, 5, 45, "Input"],
Cell[86652, 2132, 438, 12, 75, "Input"],
Cell[CellGroupData[{
Cell[87115, 2148, 4720, 109, 510, "Input"],
Cell[91838, 2259, 4823, 89, 527, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96698, 2353, 6178, 157, 800, "Input"],
Cell[102879, 2512, 9406, 155, 384, "Output"]
}, Open  ]],
Cell[112300, 2670, 89, 1, 75, "Input"],
Cell[CellGroupData[{
Cell[112414, 2675, 3131, 82, 307, "Input"],
Cell[115548, 2759, 764, 12, 66, "Output"],
Cell[116315, 2773, 4398, 83, 487, "Output"]
}, Open  ]],
Cell[120728, 2859, 122, 2, 45, "Input"],
Cell[CellGroupData[{
Cell[120875, 2865, 422, 9, 75, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[121300, 2876, 7192, 191, 2374, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[128529, 3072, 10821, 277, 1572, "Input"],
Cell[139353, 3351, 21559, 370, 353, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
